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65,536 色 同時 発色 @ 水平 32、 1 画面 1608 の ス フ ラ イト 機能 @ オー 

バー スキ ャ ン 機 能 を 採用 し た 512X512 ド ッ ト レ ベル の スー パー イン 
ボーズ @ テキ スト ビット マッ プ 方 式 採用 @ 8 重 和 音 ス テレ オ FM 音 
源 搭 載 @ 音声 デジ タイ ズ 記憶 AD PCM O 新開 発 マ ウス ・ ト ラッ ク 

ポ ボール @ 1M バ イト 5"FDD 2 基 搭 載 @ X-BASIC、 日 本 語 ワ ー ド ブロ y 
セッ サ 、 グ ラディ ウス 同 梱 


E ENIKE 
Se ティ ブフ ワー ク を サボ ホー ル 。 


b. 既存 に こだわ ら な いも の を 創り 出す こと は 
た だ たいへん な 苦労 を も な う も の で て です 傑出 し た 創意 と 情熱 、 
= の フロ ダク ツ に 対す る 将来 的 な 展望 。 机上 で て の 設計 
i. ک۸ و و‎ それ を 世に 問う 場合 
の 束 任 の 重大 き は 並々 な ら ぬ も の で す 。 と り わ け パ パー ソナ 
シ ニ ン ピュ ー タ の 分 野 で は 、 必 然 的 に ソフ トウ ェ ア の 資産 
が 闘わ れ 、 ハ ー ド ウェ ア が 一 人 歩き する こと な ど 、 かなわ 
な ET us 会 、 きか ん に と り ざ だ た され て いる 、 
ぃ いち ゆる コン パチ フル 路線 も 、 ま る に そう し た 市 場 環境 が 
生み 出し た 産物 で し ょ う 。 





























@ 15 型 カラ ー デ ィ ス プレ イ CU-15M1(E-B) 標準 価格 99,800 円 

5S000 が 登場 し し 人 ヶ月 、 ソ フト ウェ ア 76 و‎ カラ ー イ メー ジ ユ ニ ッ ト CZ-6VT1 標準 価格 7 

: 1 o è カラー ビデ オプ リン タ CZ-6PV1 標準 価格 198 ,000 円 

KOIR ES 世に 問わ ざる を 得 な か っ だ この マシ ン が 、 e 24 ビ ピン 漢字 プリ ンタ (80 桁 ) CZ-8PK7 標準 価格 122,000 円 

= れ ほ と まで て に 雪 い ご 支持 を いた だ いた こと に 、 ユ ー ザ ー e 24 ビ ピン 漢字 ブリ ンタ (136 桁 ) CZ-8PK8 標準 価格 152,000 円 
و‎ 24 ビ ピン 漢字 プリ ンタ (80 桁 CZ-8PK9 iE; 89,800 

EA D»oRS +2 ۱-۰ BE ne ten | ZE EE 

つめ て きた その 思想 に 意 を 強く する ぉ も の で す 。 を し て 今 、 こ の رو‎ ハー ド デ ィ スク ユニ ッ ト (10MB) CZ-500H 標準 価格 348 ,000 円 

d e 増設 用 ハー ド デ ィ スク ユニ ッ ト (10MB) CZ-501H 標準 価格 258,000 円 

マシ ン の ポテ ン シ ャ ル に ふる さわ しい ソフ トウ ェ ア の 登場 で 、 @ ハー ド デ ィ スク ユニ ッ ト (20MB) CZ-620H 標準 価格 178,000 円 

きた 新た な 局面 を 迎え よう と し て いま す 。 次 の ステ ッ プ へ 、 e モデ ム ユ ニッ ト CZ-8TM2 標準 価格 7 


@ RS-232C ケー ブル (平行 接続 型 ) CZ-8LM1 標準 価格 7,200 円 
e RS-232C ケ ー ブ ル (クロ ス 接 続 型 ) CZ-8LM2 標準 価格 7,200 円 
€ 1MB 増 設 RAM ボー ド ( 内 蔵 用 ) CZ-6BE1 標準 価格 35,000 円 


X68000 は さら に 飛躍 し C ゆ きま す 。 













e 拡張 |/0 ボッ クス CZ-6EB1 標準 価格 88,000 円 
e 実 半 密 度 を 追求 し た フォ ルム 一 新 の マン ハッ タン シェ イプ @ 広 く e 2MB 増 設 HAM ボ ー ド * CZ-6BE2 標準 価格 79,800 円 
き 4MB 増 設 RAM ボ ー ド * CZ-6BE4 標準 価格 138,000 円 
』 ニ ア な アド レス 空間 、 68000 搭 載 @ テ キス ト 、 727472. 477 @GP-IB ボ ー ド CZ-6BG1 標準 価格 59,800 円 
イト 、 狐 立 3 画面 設計 、2M バ イト の 大 容量 メモ リ @ フ レン ドリ ー OS、 ぁ ユ ニ バ ー サ ル ۱/0 ボード CZ-6BU1 標準 価格 39,8003 
Se : ° 5 増設 用 RS-232C ボ ー وت‎ ٦ CZ-6BF1 標準 価格 49,800 円 

Human 68k 搭 載 e 連 文節 変換 、 マ レ チ フ ォ ン ト を サポ ー ト し た 強力 " 
0ٹ‎ pe NE 3 z Ss e : e 数 値 演 算 プ ロ セ ッ サ ボー CZ-6BP1 標準 価格 79,800 円 
ヨ 本 語 処理 @ 1024 X 1024 ド ッ ト (最大 表示 エリ ア 168 X512 ド ッ ト ) Ee AN-160SP 標準 価格 59,800 円 
の 実 画 面 エ リア を 装備 し た 高 人 解像度 表示 能力 @ 512 メ 512 ド ッ ト 、 e ジョ イカ ー ド CZ-8NJ1 標準 価格 1,700 円 


※ ご 使用 の 際 に は CZ-6BE1 が 必要 で す 。 













バー ジン カル ワー クス テー ショ ン 


| | | 1 3 ا6600 
e 本 体 + オ キー ボー ドロ Z-600C (E-B) 標準 価格 ۳ Sea‏ 


e ]5 型 カラ ー テ ディ スプ ブレ イ テ レ ビ CZ-600D(E・B) 標準 価格 129.8009 
e チル トス タン ド CZ-6ST 1(E・B) 標準 価格 5,8003 
@ 拡張 | ホッ クス ピ Z-6E 日 | 標準 価格 88.000 円 





OO o سارہ‎ 3 SET 545 大 阪 市 阿倍 野 区 長池 町 22 番 22 号 谷 (06)621-1221( 大 代表 ) 
E 東京 都 新宿 区 市 谷 衝 幡 町 8 番地 谷 (03)260-1161( 大 代表 ) へ 。 
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Story: 銀河 系 の 遥か か な た 、 こ こ ド ラゴン ラン ド は 、 平 和 と 愛 に 
満ち ああ ふれ た 、 地 球 型 星系 で あっ た 。 だ が 突如 発生 し た 超自然 現象 と 


正体 不明 の 凶悪 な 魔 生物 の 出現 に より 、 そ の 様相 は すっ か り 変 わっ て | 
し まっ た の で ある 。 地球 人 の 超 能 力 戦士 "ハリ アー" に 、 正 義 の ドラ | 2 
コ ゴン “ユー ライ ア "” か ら 救 助 を 求め る 連絡 が 入っ た の は 当然 の こと だ — 


っ た と 言え る だ ろう 。 「 コ ノ セカ イノ へ ヘイ ワラ ヲ トリ モ ド シ タイ k. 
ノダ ! イソ イデ クレ ! ハリ アー!」 ユ ー ラ イア の 悲痛 な 要請 を 『 
受け 、 ハ リア ー は 、 つ い に 起 っ た 。 愛 用 の オー トロ ッ ク (RES e 
E) 機能 凌 備 の ラン チャ ー を 携え 、 ハ リア ー は 前 進 を 開始 し た 。 N 
走れ ! 翔べ ! 撃て ! スペ ー ス ハリ アー | ` 


e vane 


DWO? 戦闘 は 間もなく は じ ま る ぜ !」 ` EE سا‎ 
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お 待た せ し ま し た 。X68000 用 スペ ー ス シ ツリ アー が つい に 発売 じ に なり ま 
し た 。 多重 画面 、 ス プラ イト 、FM 音 源 、 高 速 演算 処理 、 多 色 発色 な 
ど 、X68K の 持つ すぐ れ た 能力 を 活か し 、68000 <2、Z80・1 と いう 重 
装備 を 誇る 、 ア ー ケ ー ド ・ マ シン の オリ ジ ナ ル ・ R- KORRITUA 
薄 し た 完成 度 で 皆様 の お 手元 に お 届け する こ と が で きま た 。 

店 頭 デ モ で PLAY す る 場合 に も 、 ヘッ ド ホン を お 使い いた だ き 、 Hi-Fi 
サウ ンド を バッ ク に お 楽し みく だ P j 


スペ ー ス ハリ アー for X68000 


ら イ ンチ Disk 版 標準 価格 6,800 円 / 
/ 
/ 
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: | セリ ア 王 女 が ドラ ゴン に と ら わ れ た . ノ / 
X 王女 の 身 と ロー レン ス 王 国 を 救う た め に 立ち 上 が っ た の は 、 
ドラ ゴン バス ター と し て の 力 を 内 に 秘め た クロ ービス で あっ た 。 
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| SO 


待ち 受け る ルー ム ガ ー ダ ー を 倒し 、 ア イ テ ム を 集め な が ら 
最終 ラウ ンド に 潜む ドラ ゴン を 打ち や ぶる の が 使命 だ 。 
ユメ と ロマ ン に あふ 、 れ た 冒険 が 今 は じ ま る 。 


À ドラ ゴン バス ター 
シャ ー プ XX1 5 ィ ン テ FD 版 
標準 価格 5.PUH 円 
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68000 発 表 か ら 1 年 が 過ぎ まし た 。 あ の 発表 の 時 に は 夢 で あっ た も の が , ^, 皆さん の 手元 に 

あり ます 。 何 し て いま すか 9 
IFAS AZERE s 今 ス ペー スハ リア ー で 10 面 で 悪戦 茸 開 * な ん て いう 人 も いる で し ょ 
2. "08-9 68000 が 出 な いか な ぁ / と 本 体 を 前 に し て 指 を くわ ぇ て いる 人 も …。 

68000 は 欲 ば は りな ほど 、 いろいろ な お まけ が 付い て きま す 。 標準 で OS (Human68k) と ワー ド 
r T HAS ` ゲー ムー グラ デイ ウス が 付 じ で いま す " この お まけ , 皆さん が も し か する 
9 が 付き 合い に が る か も し 衝 ま せん 。 ゲ ー ム グラ デイ 叶え で ご 年 な ん ツー 
ブロ て 一 生 …? これ は , 考え られ な いこ と も あり 5 ませ ん が …。OS の ディ イス ケッ ト の 中 に , BASIC 
と いう フォ ル ダ ー が 目 に つき ます 。BASIC な ら , 一 生 の お ぉ 付き 合い も で きそう で す 。 "BASIC 
あま り に も 耳 に な じみ の ある 言葉 で す 。 

"Beginners Allpurpose Symbolic Instruction Code” 私 に は 。 + 5 10 年 の 付き 合い に な り ま 
$. これから も ずっ と 一 緒 に 付き 合っ て いく こと に な る で し ょ う 。 

次 さん も 一 通り 0S (Human68k) の 操作 が わか っ た と こ 5C, この BASIC と いう フォ ル ダ ー を 
開い て みた だ こと と 思い ます 。 い や , その 前 に 福袋 の 中 に ある X6800037—-" を 聞い て いる と 
忌 い ます 。 あ な だ の X-BASIC と の 付き 合い は , その 時 に も う 始 まっ た の で す 。 あ の .。 何と もぉ リズ 

ミカ ル な 演奏 。 あ の , 自動 演奏 ゲ プログラム こる を , XX68000 付 属 の X-BASIC に ょ る も の な の で す 。 

OS は その マシ ン の 中 心 に な る 基本 的 な 存在 で す が , OS 自身 で ! は 何 の 創 造 も で きま せん 。 を その OS 
上 に ある プロ グラ ミン グ 言 語 こ そ が , 私 た ち に 創造 へ の 門 を 開い て いる の で す 。 ブロ グラ ム を 創 
中 まる よろ こび こそ が , メージ ナル ラン ピュ コータ だ 残 き れ だ た ユー ザー の 特権 な の で す 。 

この 本 を 書く に あたり われ われ CZ masters club で は ,「 プ ログ ラミ ング と ! は 何 か 」 を 自問 自 答 
rl ti z k. TU, 考え は まお あお まち に か な か うろ たこ と は 明白 で す が , 基本 と な る 考え 方 は 
同じ で し た 。 創造 へ の な し みな い 努 劣 力 と 探究 心 。 こ れ が すべ て を 人 解く カギ と な っ て いる の で す 。 
われ われ ユー ザー は , この X68000 か ら 6 見 れ ば まだ 赤ん坊 で す 。 常 に 「 こ れ は 何 ? 」,「 こ れ は 。 と 
2 し て ?」 と 間 い 続け て いま す 。 疑問 も を 持ち も 。 Lc と ん ま て 追求 し て 失敗 シ か る ね る 。 そ ん な 中 
か ら 少 し ずつ 理解 し 成長 し て いく の で す 。 

本 を 書い た 側 と 読む 側 で の ギャ ッ プ は , ほとん ど な い と 信じ て いま す 。 X68000 に つい て は , T, 
同じ スタ ー ト 地点 に 立っ て いる の で すか ら 。 え -BASIC に つい て ,。 ほん の 少し みな さん より 時 〈 覚 
ev うだ けけ の こと を な の で す 。 tH TIL, X68000 の 宇宙 の 広 き か ら す れ ば ,. ほん の ちっ ぱ 
け な 塵 みた いな も の な の で す 。 

これ か ら の 益 力 と 探究 心 で 、 皆さん と 共に X68000 の 宇宙 を 探検 し 少し ずつ この 宇宙 地図 を 埋め 
いこ う て は あり ませ ん か りり! 旅 は まだ これ か ら ぞ ず 。 

昭和 62 年 11 月 7 日 
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X68000 は これ まで の マシ ン と は 比べ も の に な ら な い 程 ハ ー ド ウエ ア の 内 ] 容 が 充実 し て いて 。 € 
の 集積 度 は 現在 の 個人 レベ ル て 取得 可能 な パー ソナ ルコ ンピュータ の 限界 で は な いか と 思わ れる 
です 。 コ ンピュータ の ハー ドウ エア と ソフ トウ エア ば 調和 が 取れ て いな けれ ば な り ま せん 。 と 
ん な 良い ソフ ト も ハー ドウ エア が 貧 級 だ と その 良 $ が 発揮 出来 な に し , また その 反対 に ハー ドウ 
RI PEO ZEEE ア の 出来 が 悪い と 全く ハー ドウ エア ア の 良き が 出 て きま せん 。 そ ん が な 時 
狼 に 。 シャ ー プ は X68000 に オリ ジ ナ ル OS Human69k を ぶつ け て きま し た 。 こ の OS は ビジ ュ ア ル 
ン ェ ル を 使っ て 視覚 に 訴え る 国産 で は 目新し い 物 で す 。 こ の OS に は これ て 全く 問題 が な い 訳 て は 
あり ませ ん が , 一 つの 新しい 国産 機 の 方 向 ず け に な っ て いま す 。 

X-BASIC は こん な OS 上 で 走る イン ター ブリ ンタ BAS1C な の で す 。 こ の BASIC は 非常 に 構造 化 
され た プロ グラ ム を 記述 する こと が で き , 今 ま で の BASIC と は 一 味 違っ た も の に 仕上 が っ て いま 
す 。『 構 造 化 き れ た プロ グラ ム 」 と 言っ て も ピン と こない 方 も 多い が と 飼い dE SACH, 
『 ち か が り や すい ブログ ラム 」』」 と 言え ます 。 プロ グラ ム を 作っ て いる 時 や , デバ パック の 時 に 『 わ か 
りや すい プロ グラ ム 』 が 力強い 味方 に な る と 言う 事 て す 。 

例え ば , 今 ま で の BASIC の 場合 処理 速度 を セ 上 げ る た め に よく 使わ れる テク ニッ ق ر‎ 
チン (繰り 返し 実行 きれ る よう な 処理 を どこ か ら て も 使え る 様 に パッ ク し た だ もの) を プロ グラ ム の 
史 頭 近く に 持っ て 来 ま す 。 こ の 場合 メイ ン ル ー チ ン は , ln ら の サブ ルー チン を 放 け て 後ろ の 方 
へ 置か な けれ ば な ら な く な り ま す 。 こ ん な 時 は , ご 〈 普 通 に プロ グラ ム の 先頭 に goto 一 と 記述 し 
メイ ン ル ー チ ン E て いき ます 。 こ れ で は プロ グラ ム の 解読 に 非常 に 手間 が 掛か り ま す 
し 他人 の プロ グラ ム に 至っ て は 解読 な と MEC, と て も 解読 ど で き だ も の で て は あり ませ ん 。 

また 。 ブロ グラ ム と 言う も の は どん どん 育っ て いく も の て , 処理 の 充実 を 計る 時 や , デバ ッ グ 
する 時 な ど は 行 ょ 行 の 間 に 別 の 処理 や 何やら が ご ちゃ ご ちゃ と 入っ て きま す 。 そん な 時 に お お よ 
を の プロ グラ マー は , 広い スペ ー ス (空き 行 ) を を 求め て , goto 一 と 処理 を 移 し て 広い 空間 で の び 
の びと 色々 な 処理 を 加え て 元 の 位置 へ goto 一 と 何 も 無 か っ だ た か の 様 に 戻っ て き د لے ا م چ‎ 
E بد یہ در یرد‎ 4 LRD, 多かれ 少 か れ そ れ に 近い 事 は 行わ れ て いる の て で て す 。 こ サ な が なわ む ば る うう 
鉄 塵 の プロ テク ト の 掛か っ た プロ グラ ム で て で, か な り の 根気 が 無けれ ば リス ト を 見 る 気 に も な り ま 
せん 。 し に か く 行 番号 に 管理 きれ て いる プロ グラ ム の 場合 は , 打ち 込ん て いく うち に , EE 
気 の 向く まま に 行 番号 の 空い て いる 所 へ 跳ん で いっ て し まい ます 。 全 ま で の BASIC で は , この goto~, 
gosubreturn の 嵐 の 中 で , 自分 て も 何 が 何だ か 判ら な く な っ て し まう よう な プロ グラ ムリ スト に 
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HEbdici ili. 

さき て これ くら い 普 通 の BASIC の 事 を ひど 〈( 書 に て し まっ た の で , X680000X-BASICIX 3 Z > 
し 優れ 物 で は な いか と 期待 きれ て いる こと で し ょ う 。 そ うな の で す , goto-, gosub—return# L 
KK フロ グラ ム を 作る こと が 出来 る の で すか ら ・・・ (し か し な が ら X-BASIC に も goto 一 , gosub- 
meturn の 使用 は 許さ れ て いま す )。 そ の た だ ため 今 ま で お 目 に 掛か ら な か っ た 様 な 制御 構造 命令 が いく 
ちか 存在 し て いま す 。 使い な れれ ば , そん な に 面倒 な も の で は あり ませ ん 。 


If—then— else 
for—next 
while—endwhile 
repeat — until 


switch —case — default — endswitch 


この 中 に は 皆さん 良く 知っ て いる for-next や 一 then 一 else が あり ます が , これ も 前 述 の 制御 構 
aT す の て 良く 覚え て お いて 下さ きい 。 詳細 に 付 じ て は 後 で 血 の 出 る よう な 特訓 を する と し て , 
HELT, while 一 endwhile に つい て ちょ っ と 説明 し て み ま し ょ う 。 第 1 一 1 図 の 左側 の プロ グラ 
A (従来 の BASIC) と 右側 の プログラム (X-BASIC) は 全く 同じ 処理 を する も の で す 。 


ہے؟ 
(OF‏ 
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(従来 の BASIC) (X-BASIC) 
i0 — 3003 
10 printi 20 while 1 
BU. Iii 30 print i 
30 goto 10 40 i=i+]1 


50 endwhile 














&1-—1 従来 の BASIC と X-BASIC の 違い 


この よう に 一 見 この 制御 構造 命令 を 使用 する と , 2 行 多 く な っ て し まう わけ で す が , Ws vit 
所 すれ ば 単に それ だ け で は 無い こと が わか り ま す 。 と 言う の は , 行 番号 20 だ け を 見 た だけ て , while 一 
の 方 は これ 以降 に ある endwhile 迄 の 処理 あ を ルー プ す る こと が 判っ て し まい ます が , goto10 の 方 は , 
行 番号 30 を 見 る まで は ルー プ に な っ て いる こと が 分 か り ま せん 。 

この こと か ら わ か る 様 に , 制御 構造 命令 を うま く 使 うこ と て , FESTES NRR O BFI 
放さ きれ る の で す 。 ま た 分 まで の BASIC で は 先 に お 話し し だ サブ ルー チン の 考え ぇ 方 が 主流 どっ た の 
で す が , この 考え 方 は そっ くり 関数 (BASIC プ ログ ラム 内 で 関数 定義 が 出来 る ) の 考え ぇ 方 に 代わ 
っ て メイ ンプ ログ ラム が すっ きり し て 非常 に 分 か りや すく 《 な り ま す 。BASIC の 命令 も 関数 化 さ れ 
で いま す の て 。 プ ログ ラム 全体 を 見 て も は っ きり 意図 が つか め る も の に な り ま す 。 
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TET TE £0‏ ور درو ال Ç‏ ہیا ڈوو Zeie E‏ پا جا کے ا اتا با RASSEL‏ لا چا ساد X‏ $3 5 
概要 を 説明 し ます 。‏ 


a) 構造 化 さ れ た プロ グラ ム 形 態 

X-BASIC で は , 行 番号 に 管理 さき されない プロ グラ ム を 構成 する た め に 制御 構造 命令 が 拡充 され て 
いま す 。 制御 構造 命令 と は , ブロ グラ ム の 流れ を 支配 する も の で , 従来 は goto, gosub が 主流 で し 
だ 。 しかし, goto, gosub は 行 番号 を 目標 に し て いる た だめ, 先 の 行 番号 に 管理 さき されない プロ グラ ム 
を 構成 出来 ませ ん 。X-BASIC に は 行 番号 に と ら わ れる こと 無く 。 プ ログ ラム の 流れ を 変え る 制御 
構造 命令 が 五 つ の 用 意 き る きれ て いま す 。 


@if—then— else 
@for—next 
@while~endwhile 
@repeat—until 


@switch—case—default—endswitch 


上 か ら 二 つ (if—then—else, for—-next) は 従来 の BASIC で も 良く 見 か け ま す 。 こ れ ら の 制御 構 
造 命 令 は , 行 番号 を 目標 と する 分 岐 を し な いた め , goto, gosub を 使う 必要 が な く な り ま す 。 


b) 関 数 

ブロ グラ ム の 流れ は , 前 述 の 制御 構造 命令 で 管理 きれ て いま す が , 処理 自身 は , 従来 の BASIC 
同様 処理 に 応じ た 内 容 の ステ ー ト メン ト (命令 ) や 演算 等 に より 行い ます 。 双 -BASIC で は 。 これ 
ま て の ステ ー ト メン ト が , ステ ー ト メン ト と 関数 と に 区 別 き れ て いて . 前 述 の 制御 構造 命令 以外 
の ほとん と が 関数 化 さ れ て いま す 。 具体 的 な 使用 方 法 し し て は 以前 の BASIC と 特別 変わ っ て いる 
訳 て は な い の で す が , 関数 で ある た め , その 関数 自身 は 値 (戻り 値 ) を 持ち も 。 を の 関数 に は 何ら 
か の 引数 が ある と いう こと で す 。 例え ば , 数 学 で 学ん だ 三角 関数 な ど は 。 次 の よう に 記述 し ます 。 
x3: 
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X-COS (の 
ここ で 0 引数 で , COS (の 自身 が 全体 で 値 に な っ て いま す 。 こ れ が X に 代入 きれ る 訳 で す が , B 
自身 で 持っ て いる 値 を 戻り 値 し いい ます 。X-BASIC で いう 関数 も ,、 この 考え 方 で 今 ま で の BASIC 
で 行っ て いた ステ ー メ ント (命令 ) を 使用 し て プロ グラ ム し て いた も の と ほ ば 同じ 様 に 使用 て き 
ます 。 

X-BASIC に 標準 で 用 意 (組込み ) され て いる 関数 は , 下記 の 通り 4 種類 が あり ます 。 こ れ を , FE 
準 関数 と 言い ます 。 


代数 値 演算 関数 

る ⑧ 文字 列 処 理 関数 ' 
@ デ ー タ 変換 関数 

る @ フ ァイル 入出 力 関 数 


これ は , X-BASIC に 限ら ず , どの パー ソナ ルコ ンピュータ の BASIC で も サポー ト き る きれ て いる 基本 
的 な 処理 を 分 類 し , まとめ た も の で す 。 しかし, XX68000 の ハー ドウ エア の スペ ッ ク を 見 る 限り こ 
れ だ け の 関数 で ユー ザー は 納得 し ませ ん 。 み な さん が 御存知 の 通り , X68000 に は マシ ン の 特長 と 
も 言え る 下記 の 様 な ハー ドウ エア 群 が あ り ま す 。 


0655368007274 72 

久 最 高 256 個 まで 使用 出来 る スプ ライ ト 
音声 の 録 再 生 が 出来 る ADPCM 

人 使い 勝手 の 良い マウ ス 

Q9 7 — 41-7 7^ I; JOYSTICK 

@ xT” L ٭‎ 8 F ME; 


これ だ け ハ ー ド ウエ ア が 充実 し て いれ ば , この 機能 を BASIC で 使わ な い 手 は あり ませ ん 。X-BASIC 
で は , これ ら の ハー ドウ エア に 対し , 外部 関数 と し て サポ ー ト し て いま す 。 人 外部 関数 と いう の は , 
X-BASIC 内 に は 駐在 し て な 〈, X-BASIC の 起動 時 に BASICCNF と いう コン フィ グレ ーション フ 
ァイル (X-BASIC の 諸 条 件 を 設定 する ファ イル ) に 登録 きれ て いる 外部 関数 (外部 関数 は ハー ド 
ウエ ア 別 に 分 類 き れ て いる ) を 読み 込み , X-BASIC で これ ら の 外部 関数 の 使用 が 出来 る 様 に な 5 
ます 。 を その 他 に , この BASIC.CNF で は , 初期 画面 の 一 行 の 文字 数 の 設定 , X-BASICO7 n Z 2 
ム や 変数 が 格納 され る メモ リ (フリ ー エ リア ) の 設定 な ど が で きま す 。 

X-BASIC の 関数 は , これ まで の 標準 関数 や 外部 関数 だ け で な 〈 く , X-BASIC プ ログ ラム 中 て 既 
に ある 標準 関数 、 外部 関数 ステー トメ ント や 演算 , 代入 等 に より 関数 を 定義 (func 一 endfunc) 
3 る 定義 関数 , 外部 関数 の 構造 と 同様 に マシ ン 語 (68000 用 の マシ ン 語 ) に より , 作成 し た 外部 定 
義 関 数 な ど が あり ます 。 

c) 変 数 


X-BASIC は , 基本 的 に 四 つ の 型 の 変数 を 扱う こと が 出来 ます 。 変数 と いう の は , ある 数 値 に 割 
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2 当て られ だ 名 前 の つい た 箱 の よう な も の で , この 箱 の 中 に 入る 数 値 は 。 プロ グラ ム の 進行 と と 
REL 


) 

MEON کے‎ TES. o 0 ECR کا ا‎ dh micom と いう 変数 に 5 を 代入 す の 。 
) 

処 H 
) 

micom Ce eM > nS Knee i eade 0 ee micom とい 5 タバ 変数 は TH っ た が 
Í 3 を 加え て micom と いう 変数 へ 再 


度 代 入る れ 8 と な っ だ た 。 
この 様 に , 変数 は 数 値 と 同様 に 扱う 事 が で き , 数 値 を 代入 し た り , 演算 過程 に 使用 する こと が 
EC 
è C, X-BASIC で は , 以下 の 四 つ の 型 の 変数 を 使用 す る こ ど が て き 3⁄7; 


Cu 


で 


Ont (4 ダイト, 32 ビ ゼット 長 ) ーー ニニ —2,147,438,648—2,147,483,648 
Gchar! (1 バイト.。 8 ビッ Bhd) eee oq ss get LS. t. 0 一 255 
人 @float 型 (8 バイト, 64 ビッ ト 長 ) nn M M 11,125,369,292,536 x 10-395 

—35,953,862,697,246 x 10398 
05: rZ zeegt 0! ーー 最大 255 文 字 4 T 


N 


ch 


これ ら は , 使用 目的 に より れ ぞ れ の 型 て 変数 を 宣言 し 。 プロ グラ ム 中 で 使用 し ます 。 
この 変数 に は , 別 の 分 類 が あり , その 変数 の 有効 範囲 に より ××. و کم‎ 
ロー カル 変数 で す 。 関数 を プロ グラ ム 内 で 定義 し た 場合 。 を の 関数 内 て きれ だ 変数 は ロー カ 
ル 変 数 と な り 。 メイ ンプ ログ ラム か ら は 。 参照 す وت سس سوہ‎ . 
て 宣言 され た 変数 は , 関数 内 で も 参照 で きる グロ ー バ ル 変 数 と な り ま す 。 IBU; メイ ンジ ン s 
ム 内 で 定 言 し た 変数 名 と 同一 の も の を , 関数 内 で 宣言 する と , 関数 内 だ け に 有効 な ロー カル 変数 
と な り ,。 メイ ンプ ログラム へ 戻っ た と き に は 。 2 TCS ری‎ す 。 ローカル 
変数 が 使用 可能 に な っ た だ ため, 再帰 呼 員 し が 出 KAKTO $T, 2 DU, X-BASIC で 使用 て 
きる 変数 し て , 配列 変数 が あり ます が , これ は 少々 や や こ し い の で , 後 で 詳し く 解説 し ます 。 
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X_BASIC 自 身 の 実行 速度 は 。 他 の 16bit 機 の BASIC と 同等 の スピ ー ド で す 。 従来 の BASIC で は 。 
ドド を 速く する 手段 と し て 。-BASIC コ ン パ イオ イラ を 使用 し て いま せ し も たかが, コン パイ ル 後 の フロ 
ム が 非常 に 大 きく な る こと し と, 全て の 命令 (ステ ー ト メン ト ) を 完全 に サポ ー ト し て いな か 
EE 
ます 。 こ れ は 。 BASIC の 構造 自身 の 問題 で も と も と コン パイ ラ を 意識 し て 作成 され て いな い 為 , 

ュ ン パイ ル 時 に 無理 が 生ずる の で す 。 

X-BASIC は , 制御 構造 命令 を 使用 し , BASIC の フロ グラ ム 目 ago 
に 既に コン パイ ル 方 法 も 考え て 完成 きれ て いま す 。 XA6BASICIz, BASIC プ ョ グラ み を の 形態 て Lou 
番号 きえ な けれ ば , C 言 語 し ほとん どか わら な いも の が あり ます 。 従っ て BASIC の ブロ グラ ム 7 
証 ス プログラム) は ,C ソ ツー スコ ンー タ で 。C の ソー スプ ログ ラム へ 変換 る きれ, - その 後に じ コ ン 
パイ ラ に より .。 マシ ン 語 ヘコ ュ ン パイ ル き され ま す 。 従っ て 。 従来 の BASIC ュ ン パ イ +0 
て いる 「 メ モリ 効率 が 悪い 」,、「 コ ン パ イル 後 の 実 行 速度 が , 思う よう に 上 が ら な い 」 等 の 因子 
6 コン パイ ラ に 依 信 し て きま す 。 

C ュ コンパ イラ の 能力 は 未知 数 で ある と し て も , 介 ま で の C コ ン パ イラ の 概念 や 実績 が らい っ て , 
HENSON SING ENS SSN 
か ら 。X-BASIC の 将来 は 非常 に 明る いも の に な り ま す 。 速度 と メモ リ 和 効率 は ,. この ユニ ー ク な 方 
拓 で 頁 服 され だ の で す 。BASIC の 良い 所 と し て ブロ グラ ミン グ , 即 実行 が あり まし だ が 十分 に 
デック し て (TEL) 再 実 笛 を くり か え ぇ し 。 思う 存 分 た スト し た 上 で て で, これ で 長い と いう と こ 
ろ で コン パイ ル し て 実行 速度 を 上 げ る 非常 に 能率 の 良い 方 法 に が なり ます 。 

具体 的 に X-BASIC で の ュ コンパイル 手順 を 説明 し ます 。 





[1] XX-BASIC ブ ログ ラム 作 成 
I2| テス ト run 


| 
۷ 


X-BASIC プ ログ ラム の デバ ッ グ 
[4] basic to C コ ン バ ー タ に より C 言 語 の ソー スプ ログラム に 変換 
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SE mot روس و‎ —RA m4 pV 
l 


el アセ ンプ ラ ・ リ ンカ て 実行 可能 な マシ ン 語 プロ グラ ム の 完成 


以上 の 過程 で 高速 化し た プロ グラ ム が 完成 し ます が , [か 6[3] の 部 分 は 。X-BASIC で の 分 担 で す 。 


X-BASIC の リス ト を 大 文字 に する 方 法 

























X-BASIC Cià4, リス ト を 出す と き , for や print な どの 「 予 約 語 」 や 変数 名 が 小文字 で 表示 きれ を ま 
す が , 次 の よう な 作業 を 行う と , 従来 の BASIC 同様 , 大 文字 表示 に する こと が で きま す 。 
① い ま 利 用 し て いる X-BASIC の ディ スク が , X68000 を 買っ た と き に 付い て きだ た シス テム ディ スク の 
E EE وہ ہے‎ バッ クア ッ ク プク (コビー) を と り ま す 。 バ タグ アッ プク し だ デイ スク に は , 
ライ ドン セロ デ グ 下 シー ル を 貼ら な いで 参 きま す 。 
② い ま ビ ジュ アル シェ ル が 動作 し て いる 時 は ,「COMMAND.X」 を ダブ ルク リッ ク し , コマ ンド シェ 
EE, 











Ee EE p mw ae EE 
A>ED BASICX BASIC.CNF |.) 
と し ます 。A> の 部 分 は すでに 表示 きれ て らら る の で 入 旋 不 要 で . す 。 
③ 画 面 に 数 行 の 文字 (下図 参照 ) が 表示 る され ます の で , この 中 の 
ーー 画面 左上 に 表示 され る 内 容 
FREE =128 Së 
WIDTH =64 
BEEP =0N 
CAPS — OFF 
FUNC — AUDIO 
FUNC —GRAPH 
FUNC — MUSIC 
FUNC — MOUSE 





FUNC = SPRITE 
FUNC =STICK 
de 
CAPS = OFF 


の OFF の 部 分 を ON に 変え ます 。 具 体 的 に 言う と カー ソル を 最初 の ( 左 の )F の 所 まで 持っ て いっ て , 
と 2 回 押し , N と 入力 し ます 。 回 は 不要 で す 。 

DERE, ESCE と 入力 す る と 作業 は 終わ ちり で す 。 コ ユマ ンド シェ ル に 戻り ます の で , 最初 に ビジ 
ュ ア ル シ ェ ル を 利用 し て いた 場合 は 

JI で 。 ビ ジュ アル シェ カル に 戻 計 ます 。‏ 00 کر 

いつ も の 手順 で X-BASIC を 起動 し て , リス ト が 大 文字 で 表示 され る か 確か め て みて 下 き い 。 
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TT کے‎ ーーーー مر‎ - I Be E - ん 
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SECUS تح رر‎ 


エー 
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M MM 
TIS VEL کے‎ 2. ここ の 3 Beet 
oo OO سم کے‎ 

5 OPNS SS NES US 


` بوژ ہر ےکک ےکک کے تس 
WM ee Geen, oo NAM M‏ 
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wu. رود‎ NIS NI. 
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ہیں CH NM‏ 
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“e کک‎ dv ^ We 

Ween ہر رت ا ےم ےب‎ SS 

کر کک کک سو رت 


D 
و و یں ری‎ CV ^. ^ CE r. Š 
Ce نے رم‎ ra 39 30 
5 V. VV DENTS S INS. 


ーー 
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5 boo 
ーー 
کک کک کے‎ ele ` Ces T. Ges っ の d 
f っ 7 2 وب‎ NS re 
M Lee "obe S تا‎ TONS 
رہ‎ 5 - c NES e". T š 
ーー ご ーー e PO ` < vu. NNN 
VV ee = Se 5 = E € ご T >. 
TT ر کک‎ Tir の M 
E ご M. oz d A, دس ری ہد دج‎ 
ーー 


DU ^. ch کے کے‎ EE Wie i 


- wë Dore EE 
ーー ^. TUS 
ご ご 
d d e, ee, ee = 
V ーー T. ^ M TM 
ーー 


E‏ کس رک کک ےک کک کے ےک 
پر ہی تد V Verc‏ 


یٹپ و NNN‏ تبیہ s‏ رہ TT‏ نت دج ریب MV ー Se x‏ کے کک کک کک کے کک 
ーー‏ 
fe: e‏ 


5 = بہت‎ d ure ere مم کو ںہ‎ x 
ーー ^. ^. M 


ーー "V TA x‏ کک ےکک کک ےک 
ج ر کک کک ےک ےکک ےکک کک ےک کک کک کک = 


oL CS ee <>‏ 
ج کرک کک SS‏ کک کک کک 


کک“ 0 کھت 
ーー‏ 


ご 
に Die? 
ーー T. x 
ーー 7 7. x 
d Ge nee بے ےمم رئیو تس‎ 
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2-1 X-BASIC2T195SF1DERE 


نر ری ںی D‏ 
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X-BASIC の 特長 を いか し た プロ グラ ム を 作成 する た め の ポ イン ト は 。 
e Su 
@ 関数 
e 制御 構造 命令 
て す が , この 他 に も BASIC の 基礎 概念 と し て , エディ ッ ト モ ー ド , プロ グラ ム の 実行 ファ イル 管 
理 , 等 が あり ます 。 これ まで の BASIC と 方 法 が 同じ も の も あれ ば , まっ た くち が っ た 物 も あり ま 
す が , 再 確認 する つも り で 一 通り 説明 し ます 。BASIC を ある 程度 な わか り の 方 は 。 2 — 1 は 読 
飛ば し て い だ ただ いて 結構 で す 。 
CCT, この 後 の 説明 を 一 定 の 基準 で 統一 し て な か な けれ ば な ら ない の で 使用 す る フロ ッ ピ ー 
ディ スク を 一 枚 用 意 し て 下さ い 。 こ の フロ ッ ピ ー は , シス テム デイ スク を を その まま コピ ー し た も 
の で す 。 


$ 8 ° s Sen, A 

Sa-l | ダイ レク トモ ー ド と プロ グラ ム モ ー ド 

X-BASIC は Human 68k の ビジ ュ ア ル シ ェ ル か ら で も , コマ ンド シェ ル か ら で も , BASIC を 
起動 する こと が 出来 ます 。 起 動き れ た 直後 の 画面 は . 第 2 一 1 図 の 様 に な り ま す 。 

















X-BASIC for X68000 version 1.00 
Copyright 1987 SHARP/Hudson 
128Kbytes free 


UK 








EI 


第 2 一 1 X-BASIC 起動 画面 











日 い 四 角 の 点滅 の こと を カー ソ ツル と いい ます 。 こ の カー ツル が 点滅 し て いる 状態 を 。 入力 待ち 
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ADR RM RM RR RU تی ای‎ RU ایر رای ا‎ RPM PH RM PO RR یی ا یا‎ Pd Rd ار‎ RR RR RR RM RR بر ی۷ ا 0ا۷ ا ای‎ nunununununun 2] X-B AS ジジ デジ ログ ラミ シグ の 基礎 inum 


状態 と いい ます 。 こ の 状態 で 第 2 一 2 図 の 通り タイ プイ ン し て 見 て くだ さい 。 





X-BASIC for X68000 version 1.00 
Copyright 1987 SHARP/Hudson 
128Kbytes free 


OK 
PRINT ”x68000” E 








第 2 一 2 PRINT 文 を 入力 


この 状態 で キー を 押す と , 第 2 一 3 図 の 様 に な り ま す 。 





X-BASIC for X68000 version 1.00 
Copyright 1987 SHARP/Hudson 
128Kbytes free 


OK 
print 7۳” 
X68000 


$ 
第 2 一 3 図 実行 画面 


ここ に 紹介 し た 例 は , print と いう 命令 文 (画面 に ある 決ま っ た 書式 に より , 文 や 数 値 や 変数 の 
内 容 等 を 表示 する ) を ダイ レク ト に 実行 し た も の で す 。 こ の よう に , 直接 命令 文 を 実行 る せる こ 
と を ダイ レク トモ ー ド と いい ます 。 ダ イレ クト モー ド で の 実行 は , その 命令 文 の 結果 を 即座 に 知 
b た い 時 や , た めし に その 命令 を 使用 し , 動作 を 確認 し た いと き な ど に 使用 し ます 。 

命令 文 に 使用 する こと が 出来 る 命令 は , 基本 的 に は , ステ ー ト メン ト , 関数 , 演算 式 , 代入 式 
CTH, この まま で は 一 つの 命令 文 し か 実行 で きま せん 。 複数 の 命令 文 を ダイ レク トモ ー ド て 実 
行 する 場合 は , 命令 文 と 命令 文 を : (コロ ン ) で 接続 し し つない で いく こと が で きま す 。 第 2 一 
4 図 の 例 を 実行 し て みて くだ さい 。 


print "X68000":print "X-BASIC 





X68000 
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(RNB 第 2 音 X-BASIC の 基礎 AP Pd POS Pd Püs Pd P PE PU PRU PUO PR PRO PR PU PU Pd PU PU PM Pd PRU Pd ۶۹ ارز‎ PUMP PRU FN ایز‎ PRU ۶۹ ایا‎ ۹ Pd PO PRU P PU PU PU PU PM Pd PPM RR PU PU RUE Yi 








on NM‏ سو سھ ن5 


2-40 : (コロ ン ) で 二 つ の 旬 文 を つなぐ こと が で きる 


さき ほど の , print 一 と いう 命令 文 が , 二 つ 実 行き れ だ た こと が わか り ま す 。 この 様 に : (コロ ン ) 
に より , いく つか の 命令 文 を 接続 し た も の を , マル チ ス テー トメ ント と いい ます 。 第 2 一 5 図 の 
例 も 実行 し て みて くだ さい 。 


Tor 128 to Lë print i:next 








第 2 一 5 図 マル チ ス テー トメ ント 実行 例 


Exo k ts — 2 š KU up pK 2 RE EE 
fori = 0 to 10…… for 以下 next まで を 変換 i の 値 を 0 か ら 1 ずつ 変化 きせ て ルー する 。 
next i の 値 に 1 を 加え て for 以下 を 繰り 返す 。 i が 10 を 越え た ら 次 へ 進む 。 
と いう それ ぞ れ の 命令 文 で す 。 命令 文 の 内 容 (ステ ー ト メン ト 等 ) に つい て は , 後述 する の で あ 
まり 重要 で は な い の で す が , 三 つ の 命令 娘 が : (コロ ン ) に より , 全て で 実行 きれ て い . る 点 に 注意 
し て くだ さい 。 こ の よう に , ダイ レク トモ ー ド で 色々 な 命令 文 を 組み 合わ せ て 。 実行 る きせ る こと 
が 出来 ます 。 ダ イレ クト モー ド て 実行 きせ た あと , 前 述 の 例 で for 一 の 所 で , 0 か ら 10 ま で の 変化 
だ 10 か ら 20 ま LAE UX, BENALLA EST C 実 衝 も た だい めす が どう りら 上 し たら 5 よ いで し ょ 
Dp", 
画面 上 の 例文 を 見 て , その 通り キー ボー ド か ら 入 力 し for ~ の 所 だ け 0 71005, 10 を 20 に 変更 し 
て 入力 し て も いい の で す が , 非常 に 能率 が 悪い の で カー ソル キー (UE -A の [キー を 押 
し て for i …… の 所 へ 合わ せ , キー で 0 の と ころ まで 進め ,| INS | キー を 押 ات تا‎ 所 
また 円 キー で 10 の 1 の 所 へ カー ソル を 進め , | INS | キー を 押し て 2 を キー イン し , 回 キー を 押し 
ます する と と ぶす て し も し ょ う 。 第 2ー 6 回 の よう に な すま し だ 。 
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cus 8] 


for i=19 to 28:print i:next 


10 
lI 
12 
13 
| 4 
15 
16 
1 7 
18 
19 
20 








SE 





第 2 一 6 エディ ッ ト 操 作 で プロ グラ ム を 修正 


今 の 一 連 の キー 操作 を エディ ッ ト と いっ て , X - BASIC の ブロ グラ ム 入 力 時 や 今 の 様 な ダイ レ 
クト モー ド の 命令 文 入力 時 な ど 文 の 変更 の 時 に 大 変 便利 で す 。 
エディ ッ ト で 使え る と 便利 な 方 法 を まとめ る と 次 の 様 に な り ま す 。 
l. 打ち 込ん で いる 行 で , カー ソル 位置 より 手前 の 文字 を 他 の 文字 に 変更 する 。 
(fJ) PLINT "X 68000 " lg Ss PRINT ”X 68000 ” E | 
Ac—xncep-OFee€9CLNORdRTRUESIXIEE-CALLONE X 
5, 
2. 打ち 込ん で いる 行 で , カー ソル 位置 より 手前 の 文字 を 削除 する 。 
(ff) PRRINT "68000" lg c» PRINT "X 68000" E 
カー ソン ル キー の 中 キー で 後 の R まで も と し , | DEL | キー を 押し , 円 キー で も と の 位置 
へ も と る 。 ズ は , カー ツル キー の 一 キー で 後 の R また は IT まで も ど し , [BS] キー を 押 
L, キー で も と の 位置 へ も どる 。 
3. 打ち 込ん で いる 行 で , カー ツル 位置 より 手前 の 文字 と 文字 の 間 へ 文字 を 挿入 する 。 
(fj) PINT "X 68000 " قح‎ c» PRINT "X 68000" lB 
カー ツル キー の ロキ ー で T ま で も ど し | INS | キー を 押し を の キー に 赤い ラン プ が つい 
だ こと を 人 確認 し , R と 入力 し , [INS | キー を 押し , 赤い ラン プ が 消え た こと を 確認 し , 
キー で も と の 位置 へ も どる 。 
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(RNB ES 2 کت‎ x - B A SIC @ 基礎 iR RR RPM POS 1۹ تی‎ PUE F PO POPE RUE 99 ار‎ PA ایز‎ PA h PA had PA ایا‎ PR ایا‎ PA ایا‎ PUMP PEU PO PU RU PRU ایا‎ FUE PRU ۴۹ ای‎ PRO PA ایا‎ PA ای8 ا ۴۹ ایا‎ RUE ۴۹ ایا‎ PA ایز‎ PA بی ۴۹ کنا ۹۹ ای ۴۹ ایز‎ PUERO ۹ ایا‎ PA لیا ۹ ایا ۴۹ فی 7۹ ایا‎ POM PU RU PRO PU PUA 


. 以前 実行 し た ダイ レク トモ ー ド の 文 の 内 容 (まだ 画面 上 に 表示 る きれ て いる も の ) を 変更 し 再 


(fJ) print "X 68000 ": print "X-BASIC" ® print ”X-BASIC”: print” X-BASIC 


X 68000 X-BASIC 
X-BASIC X-BASIC 
3i 8 


カー ソル キー の [1 キー で , 変更 し た い 行 へ も ど し , 1-3 の 要領 で 変更 し た 後 , その 
行 で 回 キ ー を 押す 。 
さき て, 本題 へ 戻り ます が , ダイ レク トモ ー ド で の 実行 は , 必ず キー を 押す こと に より 実行 を 
開始 し ます 。 を そして, 実行 後 は 画面 に ダイ レク トモ ー ド の 命令 文 が 残っ て いる 場合 を 除き , HX 
ee و سی داد سد ار‎ G کو کی ار‎ 
まし た が , 一 時 的 に 動作 を 確認 する た め だ っ た り , その 命令 文 の 結果 を , 即座 に 知る だ た め な の て ,, 
ےت جروس و شس ہر کہ‎ e tpi 
どの 
print "X 68000 ": print "X-BASIC" 
の 文 を 使用 し て 説明 し ます 。 エ ディ ッ ト の 機能 を 利用 し て 頭 文字 の 前 に 10 と いう 数 字 と (スペ ー 
AX) Y—ofI53^t o3. 
10 print "X 68000 ": print "X-BASIC" 
と な り ま す 。 こ こ で ダイ レク トモ ー ド の と き の よ うに 回 キー を 押し ます が , 画面 上 に 
X 68000 
X-BASIC 
gs 
と いう よう に は 出力 され ませ ん で し た 。 し か し , ここ で 第 2 一 7 図 の 様 に 入力 し , キー を 押す 
EE 





10 print X68000 print "X-BASIC" 
RUN 


X68000 
X-BASIC 


OK 


第 2 一 7 図 行 番号 の つい た プロ グラ ム を 実行 する 
ダイ レク トモ ー ド で 実行 し た 時 の 様 に , 画面 に 文字 が 出力 され , OK と な り カ ー ソ ル が 現れ まき 
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"reenen DRESDEN PRIM RM PPP RP ا لی‎ RRE بر ۷لا ا ا لی ا ا ای ار ای ا ای ا‎ RR mun ジー| X-BASIC7 n 7, ミン グ の 基礎 Run 


す 。 こ の 後 RUN ロキ ー を 押せ ば , 何 回 で も "X 68000" と "X-BASIC" が 画面 に 出力 され ます 。 
きれ は ,。 ダイ レク トモ ー ド の 命令 文 に , 行 番号 を つけ た ため に , ブロ グ ラム モー ド で 
10 print "X 68000 " : print "X-BASIC" 

と いう 命令 文 が 。 X-BASIC の ブロ グラ ム メ モリ に 書き 込ま れ た た めで す 。 B5, 行 番号 命令 文 
(: 命令 文 : 命令 文 …) の 形式 に な る と 、 プ ログ ラム モー ド と 解釈 され, プロ グラ ム メ モリ へ 格 
重 さ る れ ます 。 プ ログ ラム メモ リ 内 に 入っ て いる プログ ラム に 対す る 操作 は , 全て X-BASIC の コマ 
ンド に より 行い ます 。 例 えば, 今 の RUN と いう の は , コマ ンド で "プロ グラ ム メ モリ に 書き 込ま 
れ て いる ブロ グラ ム を 実行 せよ " と いう 意味 に な り ま す 。 コ マン ド に は , 次 の 様 な ちの が あり ま 
す 。 


コマ ンド 一 覧 






プロ グラ ム メ モリ 内 の プ ブログ ラム の 実行 。 






指定 され だ ファ イル ネー ム で , ディ スク 内 に 記憶 きれ て いる ブロ グラ ム を ンプ 
ログ "ラム メモ 更に 移す 。 










指定 され だ た ファ イル ネー ム で , プ ログ ラム メモ リ か ら デ イィ イス ク へ 記憶 する 。 


(| プロ グラ ム メ モリ 内 を , クリ ア す る 。 


指定 され た 現在 の 行 番号 か ら , 指定 行 番号 間隔 で , 指定 行 番号 か ら 行 番号 を 
ふり 直す 。 







指定 され た 行 番号 か ら , 指定 され た 行 番号 まで を , プロ グラ ム メ モリ か ら 消 
去 す る 。 


プロ グラ ム メ モリ 内 の プロ グラ ム を , 画面 に 出力 する 。 

[BRAKE] で 停止 し た プロ グラ ム を 続行 する 。 
生 言 きれ て いる 変数 を すべ て 解除 する 。 

ファ ンク ショ ン キー の リ メト を 画面 に 出力 。 
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(RNB 第 2 A X - BASICO 基礎 ہر‎ RO PM Pd Rd FUR Pd ایا‎ PM PU P Rd ۹ ای‎ Pd PU ۴ ایا‎ PO Pd PU ۴۹ ۹ای‎ Rd PU ROM AO PO RO PU PRO PA RO ۹ RN DMR ND NR Pd PORA PO ۹ لیا ۷ای ۹ ایا لی ۷ای ۹ ایا ۷ای لی‎ ۹ MAUR 


WIDTH 画面 の 1 行文 字数 と 行 数 の 指定 。 


SYSTEM | 親 プ ロモ セス へ も と る 。 


ュ マ ンド ー つ っ 一 つの 動作 は 後述 し ます が , 基本 的 に これ ら の コマ ンド は プロ グラ ム 内 へ 使用 す 
る こと が 出来 ませ ん 。 常に ダイ レク トモ ー ド で の 使用 ほし いう こと に な り ま す 。 その 他 の 制限 と し 
て ダイ レク トモ ー ド で この コマ ンド を マル チ ス テー トメ ント で 記述 し て は いけ な いと いう こと で 
ET. 

ダダ イレ クト モー ド で の 命令 文 に 行 番号 を つけ た も の が , プロ グラ ム と し て ブログ ラム メ モリ に 
記憶 きれ る こと が わか っ た わけ で す が , 行 番号 の 役割 し は , いっ た い 何 で し ょ うか 。 第 1 章 で も 
説明 し まし た が , X-BASIC で は 「 構 造 化 さ れ て , 行 番号 に 管理 きせ な い プ ログ ラム を 作れ る 。」 
と し まし た が 。 実際 に は 行 番号 は , プロ グラ ム メ モリ 内 の 住所 の 役割 を し て いま す 。 例えば, 第 
2 一 8 図 を 参照 し て くだ さい 。 





At 
for i=9 to ۵0 


print i 


next 


end 





第 2 一 8 10-50 ま で の プロ グラ ム 


この リス ト は 。 先程 ダイ レク トモ ー ド の マル チ ス テー トメ ント で 1 行 で 実行 きせ て い だ も の を 
展開 し て . プログ ラム モー ド に し た も の で す が , 30 print i の 行 の こと を ,「 上 か ら 3 行 目 の 文 」 と 
いう の と 「30 行 目 の 文 」 と いう の で は , 後者 の 方 が は っ きり と 目的 と する 行 を 言う こと が 出来 ま 
す 。 

i, この リス ト は , 50 行 目 ま で 10 番 と ば し て 5 行 し か な い の で ,「 上 か ら 3 行 目 」 で も 良い の で す 
が 。 何 千 行 も の リス ト で 「 上 か ら 352 行 目 」 な ん て 言わ れ て も , 上 か ら 順 に 数 を て いか な けれ ば な 
り ま せん た ん 。 PX, av PeRodastcIESUL 

DELETE に つい て も ,「 上 か ら 何 行 目 か ら 何 行 目 まで を 削除 」 な ん て 言っ て も , 本 当 に その 行か ら 
で いい か 確認 する に は , 上 か ら か ぞ え な けれ ば な り ま せん 。 行 番号 は , その 文 の 住所 を 知る ため 
の 住所 番地 な の で す 。 その 他 の 役割 と し て は , プロ グラ ム を 進行 きせ る 順序 を 知ら せる 役割 も あ 
り ま す 。 第 2 一 9 図 の 例 の よう に , 打ち 込ん で みて 下る い 。 


NEW ÛJ 


18 int i 
30 print i 





26 


II 


“ana nununununununununuununununununununununununununununununununununununununununnunununununununun 2] ری وو‎ BASIC>: a > 2 o: 53 基礎 (um 







58 end 
40 next 
29 for i-0 to 19 





第 2 一 9 図 行 番号 を めちゃ くち ゃ に 入力 する 


ここ て RUN 貼 と 打ち 込む た 0 か ら 10 ま で 出力 し て カー ソ ツル が 点 減 し て 、 入 力 待ち の 状態 と な 5 
ます 。 こ の 時 LIST 貼 と 打ち 込む な と どう で し ょ + 


LIST 

Lo. int i 

20 for ٠58 to 18 
JU print i 

40 next 

59 end 

OK 

& 





第 2 一 10 図 きち ん と 順番 に な っ て いる 


第 2 一 10 図 の よう に プロ グラ ム が 出力 され ます 。 先 に 入れ た 順序 で な く て . 行 番号 の 小さ い 順 に 並 
び か えて 出力 され て いま す 。 これ は 。 ブロ グラ ム は 行 番号 の 小さ い 順に 処理 を 進め て い ç から で て, 
i OT ےھ سا‎ E ic. EE EE Se 
フラム の 変更 時 に ある 行 と , その 次 の 行 の 間 に 別 の 処理 を 入れ た い 場 合 は , 画面 上 (な る べく 左端 ) 
すさ に も 書い て な い 行 へ , 行 番号 と 行 番号 の 間 の 整数 を 行 番号 と し た 命令 文 を 入力 すれ ば いい の 
C3. た と えば , 上 の 例 で , 30 と 40 の 間 に も うぅ 一 っ print 一 を 入れ る 場合 は 





IR int i 

20 for i=0 to 10 
30 print i 

40 next 

58 end 


2] 











mm 4925 X-B A GI CHE EE — Iununununununwunununununununwnununununununununununununwununununununununununununununununununununununununununununumi 


35 یی ری‎ K6808087 senge 新しく 追加 し た 行 
8 





第 2 一 11 図 35 行 を 後 か ら 入力 す る 
第 2 一 11 図 の よう に 入力 し て LIST 貼 を キー イン する と 


LiT 

19 int i 

20 for i= to 109 
438. pFint i 

35 print "X68000" 
40 next 

59 end 





第 2 一 12 図 30 行 と 40 行 の 間 に 35 行 が 追加 され る 


第 2 一 12 図 の よう に な り ま す 。 これ を 行 の 挿入 た いい ます が , この よう な 場面 を 常に 了 予測 し て ブ 
ログ ラム を 入力 する 際 は 。 必ず 10 行 単位 や 100 行 単位 で 行 番号 を 割り 付け る 様 に し て いま す 。 

行 番号 , 命令 文 ( : 命令 文 : 命令 文 …) の 形式 に より プロ グラ ム と 解釈 る れ て プロ グラ ムズ モ 
y に 格納 され , 割り 当て て な い 行 番号 に プロ グラ ム を 書く L, 行 番号 の 前 後 関係 に より 定まる 位 
置 に グロ グラ ム が 挿入 きれ る こと が わか り ま し た 。 次 は プロ グラ ム の 削除 で す 。 先程 の 画面 を を 
の まま 利用 し ます 。 

第 2 一 12 図 の 画面 より, 35.J2EdT 5545, LISTIH LT. 


35 

LIST 

10 int i 

20 for i=0 to 10 
30 print i 

40 next 

50 end 





第 2 一 13 図 35 行 が 削除 され た 
AER, 先程 の 35 行 の 文 が な く な っ て いる こと が わか り ま す 。 こ の よう に , 行 全体 を 削除 する 
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場合 は 。 削除 し た い 行 番号 を 実行 し ます 。 この 他 に , X-BASIC の コマ ンド の DELETE を 使用 
し た 行 の 削除 が あり ます が , この コマ ンド は , 連続 し た 複数 行 の 場合 に 有効 で す 。 





る て , この で らい 説明 が 進ん で くる と , X- BASIC の プロ グラ ミン グ で エディ ッ ト 時 に ダイ レ 
クト モー ド て 使用 する コマ ンド を 使わ な けれ ば , いろ いろ と 説明 し に くく な り ま す の で , コマ ン 
ド の 説明 を し ます 。 こ の 説明 の 中 で は , 今後 進め て いく 上 で の , コマ ンド の キー ワー ド も 説明 し 
TOT, 注意 し て くだ さい 。 





RUN と いう の は 基本 的 に は プロ グラ ム メ モリ 内 の プロ グラ ム を 実行 きせ る コマ ンド で す 。 プ ブロ 
グラ ム は , 行 番号 の 小さ い 順 に 実行 され る た め , 基本 形 で は プロ グラ ム メ モリ の な か で 一 番 小 き 
い 行 番号 か ら 6 実行 し ます 。 プ ログ ラム の 途中 か ら 実 行 す る に は , RUN 行 番号 と いう 形式 の 行 番号 
指定 の 実行 を 行い ます 。 こ の 他 に , ファ イル ネー ム 指 定 の 実行 が あり ます が , これ は LOAD OP 
と に RUN を 実行 し た も の と 同じ で す の で , LOAD の 項 を 参照 し て 下さ い 。 本 文中 ” この プロ グ 
ラム を 実行 する と …… と あり まし た だ たら, この RUN の 事 で す 。 





_ 現在 , ディス ク 等 に 登録 きれ て いる X- BASIC の プロ グラ ム を , プロ グラ ム メ モリ へ 転送 し ま 
す 。 X- BASIC it, プロ グラ ム メ モリ 内 の BASIC プロ グラ ム の み 実 行 可能 で す の で , デイ スク 
寺 に 格納 され て いる プロ グラ ム を 一 度 プ ログ ラム メモ リム 転送 する 必要 が あり ます 。 を その後 。 Z 
の プロ グラ ム を 修正 する な り , 実行 する な り の 手順 し な る わけ で す 。 LOAD  ٭”‎ ファ イル ネー 
ム に つい て は , プロ グラ ム の 結合 に 使用 きれ る の で , 後述 し ます 。 こ の コマ ンド を 実行 する と. 
今 ま で プロ グラ ム メ モリ に 入っ て いた だ ブログ ラム は 消去 きれ ま す 。 本 文中 に , "” プログラム を ロー 
ド し …… と ある 場合 は , この LOAD コマ ンド で 特に 指定 し な い 限 り フ ァイル 名 は 任意 の ファ イ 
ル 名 で 結構 で す 。 





現在 , プ ログ ラム メモ リ 内 に ある X - BASIC の プロ グラ ム を , ディス ク 等 へ 転送 し 保存 し ます 。 
し か し , デ イス ク 内 に 登録 する 際 に , OS が 管理 する 対象 し な ねる ファ イル ネー ム が 必要 と な る の で , 
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必ず ファ イル ネー ム を 指定 し て 下さ るい 。SAVE@ "ファ イル ネー ム ” は , プロ グラ ム の 結合 に 使 
用 る れる の で 後述 し ます 。 本 文中 に "プロ グラ ムネ ー ム を セー ブ し …… "と ある 場合 は , こ の SAVE 
ロマ ンド て ITIVE COCCI LOAD ERRI, | 






c2q4,7u7242:-VJ7piuc355X-BASICO7ZnZ22ATiXRT52vFCT.IBEUC, 
宣言 され て いた 変数 は すべ て 解除 きれ ま す 。 新しい プロ グラ ム を 入力 する 時 に は , 必ず NEW + 
よう に 心 郷 け て 下さ きい 。 


る 





RENUM と は Renumber OZ E C, プロ グラ ム に 付け て ある 行 番号 の 操作 もし ます 。 具体 的 に 
は , 行 と 行 の 間 に 行 を 挿入 し て 間隔 を つめ た り , プロ グラ ム の 一 部 行 番号 を つけ か を えて, プログ 
ラム 内 の 位置 を か を だ り し ます 。 指定 する こと が 出来 る の は , 新しく つけ る 行 番号 の 先頭 と 現在 
の 行 番号 の と の 位置 か ら か と , 新しく つけ る 行 番号 の 増分 で す が , 指定 ナシ と いう こと も 出来 ま 
す 。 新 行 番号 を 省略 する と 10 か ら に な り , 旧 行 番号 を 省略 する と 現在 の プロ グラ ム の 先頭 か ら と 
な り , 増分 を 省略 する と 増分 が 10 と な り ま す 。 





プロ グラ ム 内 の 指定 行 番号 か ら , 指定 終了 行 番号 まで を 削除 し ます 。 だ だ し , 終了 行 番号 を 省 
略し た 場合 は 終わ り ま で と し , 開始 行 番号 を 省略 し た 場合 は 最初 か ら と し ます 。 削除 る れる の は , 
開始 行 と 終了 行 も 含ま れる の で 間違い の な いよ うに し て 下さ きい 。 本 文中 に , ” 何 行 目 か ら 何 行 目 ま 
で を 削除 し て ……” と ある 場合 は この コマ ンド を 使用 し ます 。(※ 注 ) ( 行 番号 どけ 打ち 込ん で , 

一 行 ずつ 削除 する 方 法 で も 構い ませ ん ) 
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X-BASIC ブロ グラ ミン グ の 基礎 ww‏ 2-1 جصہ×-ھ×ْمہ مہ مہ ×۷× ص۳ ی۷ ی5 ا ی۷ ۴ب RM RM RIP M RIP RM RUP PUR RM RIP NM RR PR RR‏ یا 


プ ブログ ラム メモ リ 内 の プロ グラ ム を 画面 へ 出力 し ます 。 範囲 の 指定 が な い 場 合 に は プロ グラ ム 
すべ て が , また 開始 行 や 終了 行 の どちら と も 指定 し た 場合 は 指定 され た 範囲 が 画面 に 出力 され ま 
ま 。 LIST は 頭 に し を つけ , プリ ンタ に プロ グラ ム を 打ち 出す こと も で きま す (LLIST )。 本文 
HT, リス ト を 見 て 下さ るい ……” と ある 場合 は , 打ち 込ん で ど あ る リス ト か また 本 文 で 紹介 し て い 
る リス ト か に 注意 し て 下さい 。 





FILES と いう の は デバ イス (一 般 に は ディ スク ) 内 の ファ イル の 一 覧 を 画面 に 出力 する コマ ン 


Es お こら で 。 FILES の 後に デル クォート ) で で で うた チロ イ 名) ジア کو ہے ایا‎ 
する と ある 限ら れ た 男 囲 の ファ イル を 検索 し 表示 し ます 。 限 られ た 範囲 し いう の は , 例え を ば” B 
オダ の BIN と いう ディ レク トリ 内 もそ か ,”A ド ライ デ の ルー トト デ テオ セク トリ ” と よい 本 よう 
に 指定 され だ た と いう こと で す 。 まだ, ファ イル 名 の 指定 に は ワイ ルド カー ド を 使用 で き , 次 の よ 
うな 記述 に な り ま す 。 ワ イル ドカ ー ド に つい て は , RED Human 68K ユー ザー ズ マ ニュ アル を 
参照 し て 下さ い 。 
files E Lu 
デパ イメ 名 | ヒレ ィ イル ド ァ ー ド 
色々 な 応用 例 が あり ます が , 一 般 的 に は 次 の よう な 記述 を 覚え て いれ ば 十分 で す 。 
files [-] 
files "a :" 
ドラ イブ 名 
files "a : Y BIN" 
ドラ イブ 名 ] し ディ レク トリ 名 









X- BASIC の プロ グラ ム を 実行 中 に , | BREAK キー, | CTRL +|C キー, ぉ よび プロ グラ ム 

中 の STOP ステ ー ト メン ト で 実行 を 中 断 し た と き に , CONT 回 と する こと で 再開 する こと が で 
きま す 。 これら 6 三 つ の 方 法 で 中 断 し た と き に , ディ スプ レイ に は どこ で 中 断 し た か が 表示 きれ ま 
す 。 だ だ し , 中 断 し て いる と き は 入力 待ち 状態 で カー ソル が 点 減 し て いる の で , リス ト や print x 
に より 変数 の 表示 , 確認 は びき ます が , プロ グラ ム の 変更 を する と 再開 どき な く な り ま す 。 
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現在 , 宣言 プー イー ペー geg CP 例え ば , 次 の よう に 
ダイ レク トモ ー ド で i と いう 変数 を 整数 32 ビ ッ ト と いう 型 に 宣言 し ます 。 
int i Jj 
E 
現在 , 1 は 整数 32 ビ ッ ト 型 の 整数 と し て 宣言 きれ て いま す 。 ここ で , も う 一 度 次 の よう に 打ち こ 
み ま す 。 
int i 一 回 目 の 富 言 
inti li ^, 入力 し よう と し て いる 命令 文 
ここ て , 回 キー を 押す と エラ ー を 知ら せる ビー プ 音 ( ピッ ” と いう 音 ) と 共に , 画面 に 「 変 
数 は すでに 宜 言 き れ て いま す 」 と 表示 きれ ます 。 これ は 言う まで も な く , 一 回 目 の 宣言 で i た いう 
変数 は 整数 32 ビ ッ ト (int 型 ) に 宣言 され て いる た めで , もう一度 宣言 し よう と し た た め に X - BASIC 
が 生活 つなが な 直し た の で す 。 TU ここ で 次 の よう に し ます 。 
int 1 
int 1 
変数 は すでに 宣言 きれ て いま す 
clear に 
= 
と する こと て で て, i と いう 変数 の 宣言 は 解除 きれ た だ た ので, もう一度 "int i 幅 "と し て も 今度 は エラ ー 
に は な ら な い の で す 。 





この コマ ンド は ファ ンク ショ ン キ ー の 内 容 を 画面 に 出力 する と き に 使用 し ます 。 フ ァ ン クシ ョ 


ン キ ー と は , キー ボー ド の 上 部 に 位置 する 10 個 の キー で , キー トッ プ に [F1 に -[F10 | ほ 表 示さ れ 
て いる も の で す 。 こ の ファ ンク ショ ン キ ー は , 一 つの キー 操作 て で |F 1 |-| F10 | を それぞれ に 登録 き 
て て いる 文字 人 列 を キー 入力 し た の と 同じ 結果 が 得 ら れる , と て も 重宝 な も の で す 。 [F1 |-| FI0 | 
の キー は ,| SHIFT | キー を 併用 する こと で | F11 |-| F20 | に 対応 し て いて , 計 20 個 の ファ ンク ショ 
ン キ ー が あり ます 。 
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p? x M 








X-BASIC に は , 四 つ の 型 の 変数 が あり ます 。 それ ぞ れ の 型 は ゲロ グラ ム 中 で 変数 の 用 途 に より 
使い わけ を し ます 。 
a) char 型 変 数 

char 型 変数 は , 0 一 255 ま で の 整数 を 扱う こと が で きま す 。 主 に 文字 コー ド を 扱う よう な 場合 に 
使用 る され ます 。 文字 コー ド と 言う の は , 文字 を コン ピュ ー タ が 扱い や すく する た め に 文字 に 数 値 
を 1 対 1 対応 で 割り 付け た も の で , 一 般 的 に char 型 の 変数 1 個 で 半角 文字 (8 x 8 ドット や 8 x 
16 ド ッ ト の 文字 ) の 英 数 、 カナ 記号 が 表現 で きま す 。 日 本 語 の 場合 は 漢字 た いう 恐ろし い 文 字 が 
ある の て, char 型 の 変数 一 つ で は 表現 し きれ ず に , 二 つ 使 用 し て 1 文字 の 全角 文字 を 表現 し ます 。 
さて char 型 の 変数 と し として, アル ファ ベッ ト の a を 宣言 し て み ま す 。 





これ で , XX-BASIC で a と いう 変数 は char 型 に 宣言 され ま し だ 。 この 宣言 の 方 法 は ダイ レク ト 
一 下 で の 宣言 で す が 。 プ ブログ ラム モ ー ド で は 





1 1 | ۶2ء۰ mss‏ | 
ص ا ا E‏ 

< いう 形式 に な り ま す 。 基 本 的 に は , これ 以後 ゲロ グラ ム 中 で は a と いう 変数 を 再び 宣言 する こ 
と は あり ませ ん (例外 と し て , 定義 関数 内 で , 再 定義 せ する と ロー カル 変数 し し て 扱わ れ , 関数 を 
ぬけ た だ 所 で , 関数 内 の 変数 は 削減 し ます )。 

b) int 型 変数 

int 型 変数 は 一 2,147, 483, 648~ 2,147, 483, 648 ま で の 整数 を 。 扱う こと が で きる 変数 の 型 で 
す 。 こ の 型 の 変数 は , X - BASIC の アプ ログラム 中 で は , 一 番 使用 頻度 が 高く , 使用 目的 も 多様 で 
す 。 整数 で ある と いう 制限 は あり ます が , 土 21 億 の 数 値 で すか ら , ほとん ど 桁 が あふ れる (オー 
バー フロ ー) の 心配 は あり ませ ん 。 
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この 変数 の 宣言 は , 次 の 様 に し ます (ダイ レク トモ ー ド )。 








これ を , ブロ グラ ム モ ー ド で 使 言 する مر‎ 


と すれ ば 良く 〈, char 型 の 変数 同様 。 これ 以後 こ の 変数 の 宣言 は , 基本 的 に は する 必要 も な く , i 
だ し て は いけ ませ ん 。 
c) float 型 変 数 


float 型 の 変数 は , 約 1.1X10-398 ご 3.6 x10398 の 実数 の 扱い を の る され て いま すっ > E RF 
技術 計算 等 の 計算 に , 精度 が 必要 な 場合 に 使用 きれ ます 。 
この 変数 の 宣言 は , 次 の 様 に し ます (ダイ レク トモ ー ド )。 










これ も プ ブログ ラム モ ー ド で 年 言 する に は , 先頭 行 番号 を 付け て 表記 し ま To 
d) str 型 

str 型 の 変数 は , char, int, float の 型 と は 異な り , 文字 列 を 扱う こと の で き る 変数 で す 。 X 
字 列 と いう の は , 文字 を 表す コー ド (char 型 の 時 に 説明 し た も の ) が 並ん で , 単語 に な っ た 状態 
と か , ZO 文字 で も か まい ませ ん が , 最後 に その 文字 列 の 終わ り を 表す 0 (ヌル コー ド ) を 付 
KE E kt, 


例え ば , X-BASIC と いう 文字 列 の 内 容 を 解剖 し て みる と 第 2 一 14 図 の よう に な り 5 $3. 


X B A S I 

l l l l l 
1 6 進数 &H58 &H2D &H42 &H41 &H53 &H49 &H43 &H99 
1 0 進数 88 45 66 65 83 73 67 0 


X FIR tkt KF -رریں و‎ ) 





第 2 一 14 図 XF ORE 


ST, str 型 の 変数 に は , この よう に いろ いろ な 太字 列 を 格納 する こと が で きま す が , 文字 列 の 
長 る に は 制限 が あり ます 。 最大 で 255 文 字 ま で 格納 する こと が で きま す 。 き さて, この str 型 の 変数 
OHHCYS, 次 の よう に な り ま す 。 





これ まで の char , int, float と は 違っ て , 後ろ に [10] も の を な の が つい で いま すけ す > ご ざれ は : 


_ 84 





××: NR d Ad nu ñu A ha PU PU ايا ايا ايا ليا ليا ليا‎ PU یا ایا ايا ايا ايا ليا ايا ليا ايا‎ PU PU ایا‎ PU PU ایا‎ PA ایا‎ PUO PU ایا‎ POP اوا اوا ایا ایا ایا ایا اوا ایا ایا اها ایا ایا ایا ایا ایا ایا اوا ایا ایا ایا‎ PA ایا‎ PA ایا ۴۹ ایا‎ RUE REP 2-2 変 数 IRMA 


B tem と いう str 型 の 変数 は , 最大 で 10 文 字 ま で と いう こと で す 。 従っ て , ブロ グラ ム 
肉 で 扱う 文字 列 が , .50 文 字 以 下 と な れ ば , つぎ の よう に な り ま す 。 

str ] [50] 
EXEC. [50 と いう 文字 数 の 宣言 を な くし , 次 の さよ うに 表現 し ます 。 


š 





SF 








これ は , 今 ま で の 3 種 の 数 値 型 の 変数 と , 同じ 形式 に な り ま し た が , この まま で も , 32 文 字 ま 
で の 廊 字 列 が ゆる る れ ま す 。 従っ て , 文字 数 の 宣言 を 省略 する と, 

Gro [32] 
同様 に な り ま す 。 プ ログ ラム モー ド で は , 行 番号 を 付け て 表記 する こと は , いう まで も あり ま 





プロ グラ ム 内 で 。 いろいろ な 変数 を 使用 し て .。 プロ グラ ム を 作成 し て いて 場合, それぞれ の 変 
tU, 値 を 代入 し な けれ ば な り ま せん 。 こ こ で て で, 第 2 一 15 図 の ゲ プロ グラ ム を 見 て 下さ い 。 





SEERA x と いう 変数 を int 型 に 宣言 


Z6 EE Ee y と いう 変数 を int Les 

39 x=19: y=15…・x に 19 を 代入 、y に 15 を 代入 (マル チ ス テー トメ ント ) 
4B print es یہ‎ > > SOEN Sr وم می سو‎ HDD 

G8 print ees y の 内 容 を ディ スプ レ に 出力 

60 print x+ry…・…・ x の 内 容 と y の 内 容 を 加え て ディ スプ ズレ に 出力 








70 end--.......... Ta JAF 


第 2 一 15 図 変数 の 初期 化 
CEU. xL y tu Ro a ETE 


18 int x=19,y=15 
20 print x 

30 print y 

40 print x+y 

59 end 


第 2 一 16 図 初期 化 

これ を 第 2 一 16 図 の よう に , 行 番号 10 で 二 つ の 変数 と 宣言 と , 初期 化 を 同時 に 行っ て いま す 。 
この よう に , 同時 に , 同型 一 つの 型 の 宣言 を 意味 する キー ワー ド (int, float, char, str) に 
続い て , 複雑 の 変数 を , (コンマ) で 区 切り ,。 つづ け て 表記 する こと が で き , 同時 に = (イコ ユー ル ) 
数 値 又 は 文字 列 の 形 で , 初期 化 を する こと が で きま す 。 

ST, この プロ グラ ム の 実行 結果 は みな る ん が 想像 し て の 通り で す 。 
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int x=19,y=15 
print x 


print y 


print x*y 


end 





第 2 一 17 図 プロ グラ ム 実 行 
第 2 一 17 図 の よう に な る わけ で す 。 

それ で は 次 に , str 型 の 変数 の 初期 化 は ぼう すれ ば いい の で し ょ うか 。 これ まで は 数 値 型 の 変数 
だ っ だ の で , 非常 に わか りや すか っ だ た の で す が , 文字 列 と な る と ちょ っ と 分 か り に くく な り ま す 。 
X-BASIC で 文字 列 は 次 の よう に 表 る れ ま す 。 

CRASS 

実際 の 中 味 と な る 部 分 は , ” (引用 符 ) を 取 除 いた X-BASIC に な り ま す が , 文字 列 で ある こと を 
意味 する た め に "(引用 符 ) で か こみ ます 。 

それ で は , str 型 の 変数 に 文字 列 を 代入 し て み ま す (第 2 一 18 図 )。 


18 str a-"X-BASIC",B-"X68000" 
29 print a 


JÜ.print.b 
40 end 





第 2 一 18 図 str 型 の 変数 の 宣言 
ہر شی فسوی رسس یس‎ BU, な お か つ 文 字数 の 指定 が な い の で 最 
大 32 文 字 ま で と な り , 同時 に a に は ”"X-BASIC” hg, b に は ”X68000” が 代入 きれ ま て し た 。 し 
DU, ここ て 注意 し な けれ ば な ら な い の は , str 型 変数 の と ころ で 説明 し た よう に , 文字 列 の 終わ 
り に は 自動 的 に 0 (ヌル コー ド ) が 入っ て いる と いう 事 で す 。 
この プロ グラ ム の 実行 結果 は , 第 2 一 19 図 の 通り で す 。 
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RM Ri P Rd Pd Ra Rd ۹ ایا‎ PUMP ایا‎ Pd ۴۹ ایا ۴۹ ار‎ PROP POR FRE Fd PU POM PU PROF PUO RO POP PUMP PU PRU Pd Pd PRO PU FORO PU PUERO POL RE ۹ ا ۷ ای 7 ا‎ RR RE PORRO 9 ایز‎ 0 ۰ 2-2 変 数 1۸۷51 





18 str a=”X-BASIC”,b=” X68000” 
28 print a 
38 print b 
49 end 
RUN 
X-BASIC 
X58000 














OK 


圭 ? 一 19 図 プロ グラ ム 実 行 






き て, 文字 列 "X-BASIC”" が a と いう 変数 で "X 68000”" が b と いう 変数 に 代入 きれ , a と b で 
人 き 現 きれ て いる と , あたかも 数 値 ど ある よう な 錯覚 に お ちい り ま す が , 文字 列 の 場合 は 加算 ( 結 
Zi だ け は 許さ きれ て いま す 。 今 の グロ グラ ム に , 第 2 一 20 図 の よう に 35 行 を 追加 し て みて 下さ きい 。 





E str a=”X-BASIC” b=" 7ءء‎ 
20 print a 
30 print b 


35 print a*b 
40 end 


第 2 一 20 図 第 2 一 18 図 に 35 行 を 追加 する 
۲۰٠٠ء۶‎ Tost, 

RUN ` 

X-BASIC 

X68000 


X-BASIC X-68000 


OK 
š 





第 2 一 21 図 文字 列 の 結合 
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IRMA 第 2 = X - BASIC の 基礎 ARMA FA h FR h FA ha FA had PA had FA ha PÛ bd PA ha PA had PA ha FA bed PA hal PA e Û bf PA h PA bat F ii PA b FA ha FA bi PA had PU hal PA bi PAU ha PA a PX bad PA ha PAU ha bi PU had PA bi PA i Ff ha PA at PPO ha PA bd PA ha PA h FA ha PA b PA had PFA a PA had PA had PA ha PA bd PA b PA d FA b PA M A AAM PAA I 


第 2 一 21 図 の よう に a と b と の 内 容 が , 結合 し て 出力 され る こと が わか り ま す 。b 十 a と すれ ば は ば, 
X 68000 X-BASIC 


ENR TE だ が ます 。 


配列 変数 





話 が 少々 具体 的 に な り ま す が , 生徒 の 数 が 30 人 の クラ ス が あっ た と し ます 。30 人 が , 国語 の テ 
スト を し て , 先生 が 採点 し , 集計 に XX - BASIC で プロ グラ ム を 作り 計算 きせ よう と 思い まし た 。 
それ で は , それ ぞ れ の 生徒 の 変数 を 割り 当て て み ま す 。 


l0 int a 30, b —25, e —50, ……… 


あれ ? 生徒 は 30 人 で す が , アル ファ ベッ ト は 26 個 し か あり ませ ん 。 4 人 分 の 変数 が た り ま せん 。 
X-BASIC で は , 複数 の アル ファ ベッ ト の 並び を 変数 と する こと も 許さ きれ て いま す が , ここ で は 1 
文字 の アル ファ ベッ ト し か 使え な いも の と し ます 。 こ れ で は , 30 人 分 の デー タ を 変数 に 格納 し て 
集計 きせ る こと は で きま せん 。 i=, 生徒 が 25 人 で ,。 A Y まで の 変数 で 足り だ た と し ます 。 し か 
に 。sK と いう 変数 は 。 いっ た い 誰 な の で し まぁ る う 。 

普通 , 生徒 に は 出席 番号 な る も の が あり ます の で ', 出席 番号 と 生徒 た な ち は , 1 対 1 に 対応 し て 
いま す 。 こ の よう な 場合 に , 配列 変数 を 使用 し ます 。 


配列 変数 は , 変数 の 後に ( ) (カッ ュ ) で 囲ん だ 数 字 を 入れ て 表現 し ます 。 
例え ば , 
X (10) 
( ) の 中 の 10 は , 別に 数 字 と は 限ら ず , 次 の よう に 変数 の 場合 も あり ます 。 
X CI) 
この 配列 変数 を 宣言 する に は , 変数 宣言 の 先頭 に 。 dim (ディ メン ショ ン ) と つけ 加え れ ば い 
い の で す 。 
10 dim int X (20) 
この と き ) ) カッ コ の 中 の 数 値 は 配列 の 最大 値 で , この 場合 は 0 か ら 20 ま で 21 個 の 変数 が 宣 
言 さ きれ だ こと に な り ま す 。 これ を , 先程 の 国語 の テス ト の 点 , 名 前 , 出席 番号 と し て , 表 に ま と 
め て みる と , 第 2 一 22 図 の よう に な り ま す 。 
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CPP PUERO ۴۹ ایا‎ nu ۴۹ ERU ۹۷ کیا ۴ زی‎ PUERO PROF ۴۹ ایز ۹ا‎ PU ۷ ای‎ ۳۹ Ru PRU PUO PROP PU ۷ ار‎ Ru 1۹ ای‎ PROPUSO POP PO PUER ایا‎ PRU Fd PERO PRU PUR PURO RO RUE PR POPULO ای[‎ POE PURO FOE 5 MAMAA 2 >= 2 変 数 IR, 


BE یع‎ 出席 番号 (変数 ) 点数 x 


| **** 0 (و×‎ ¥ % ¥ — f AY ے)‎ Hi S dE (C3 O tł 
| 秋山 l X(1) 59 な い 。 
伊藤 2 X (2) 35 
| 
| + FF 3 X(3) 82 
۱ ° 
| š 
片 山 18 
深沢 28 
町 田 29 
# 38 





第 2 一 22 図 配列 変数 と 名 前 , 出席 番号 , テス ト の 点数 の 関係 


この 時 先生 が , 
. 10 dim int X (30) | 
と 宣言 すれ ば , めで だく 出席 番号 で 変数 を 指定 で き , そこ へ 国語 の テス ト の 点 を 代入 し て いく こ 
と が で きる の で す 。 | 

配列 変数 の 初期 化 は , 次 の よう に な り ま す 。 

10 dim int X (30) = {0, 50, 35, 82。 …… 265, eee vr 12,- EFA 

中 カッ コ | | の 中 に , 配列 変数 の それ ぞ れ の 要素 に 対応 する 初期 値 を , (コン マ ) で 区 切っ て 

いけ ば , そ れ ぞ れ の 配列 変数 が 初期 化 さ れ ま す 。 上 の 例 を , て いね い に 記 述 し て み ま す (第 2 一 23 図 )。 


19 dim int X(30) 
20 X(9)=9 
30 X(1)=59 
40 X(2)=35 


50 X(3)=82 


200 ×)18( “65 
i i i 
400 X(28)=72 
410 X(29)=22 
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em 第 2 章 X-BASIC の 基礎 


420 X(30)=19 | 


第 2 一 23 図 配列 変数 の 初期 化 


b) 2 次元 配列 


今 説 明 し た 配列 は , 国語 だ け の 1 教科 で し た が , 


ET, 他 に 数 学 。 理科 , 社会 英語 な ども テス ト し だ と する と どう で し ょ 2 う 。 


X (30) が 国語 用 の 配列 変数 な の で , Y (30 を 数 学 と し , Z (30) を 理科 , V (30) を 社会 , W 
し ます 。 
W (30) 


(30) を 英語 と し て , 次 の よう に 配列 変数 を 
10 dim int X (30), Y (30), Z (30), 
UL, 
科 な の か , 


aT — 
ーー 


Les) 


V (30), 
この 方 法 で 教科 が も っ と 増え て きだ りす れ ば , 変数 の 割り 当て や , その 変数 が どの 教 
わか り に くく な っ て し まい ます 。 そこ で 登場 する の が , 


は , 1 次元 配列 が 二 つ あ る と 考え れ ば よく 次 の よう が な 宣言 し ます 。 


10 dim int X (5,30) 
最初 の 5 は , 


24 図 )。 

国 語 

出番 教科 番号 1 
秋 山 l NEE 
伊藤 2 X(1.2) 
上 9f 3 ON 

i i | 
片山 18 X(1,18) 

| | | 
RR 28 KCL 28) 
町 Hl 29 X(1, 29) 
森 30 X(1, 307 


第 2 一 24 図 5 教科 の テス ト を 2 次 元 配列 で 表す 


2 次 元 配列 の 初期 化 も 1 次 元 配列 同様 に | 


数 F 
2 
X(2, 1) 
X (2,2) 
X(2, 93) 
i 
X (2,18) 
| 
X (2,28) 
X(2,29) 
X (2,38) 


理 科 

3 
X(3, 1) 
X (3,2) 
X (3,3) 

| 
X(3,18) 

| 
X(3,28) 
X(3,29) 
X (3, 291 


2 次 元 配列 で す 。 


社 会 
4 
X(4, 1 ) 
X(4,2) 
X(4,3) 
| 
X (4,18) 
| 
X (4,28) 
X(4,29) 
X (4, 30) 


この グラ ス で 表 施 し た テス ト が 中 間 デ スト な 


0—5 まで の 数 値 が 変化 びき る と いう こと で , 教科 を 表し ます 。 を その後 の 30 は , 
生徒 の 数 で す 。 従っ て , 次 の よう に 教科 と 生徒 の 出席 番号 を まとめ る こと が で きる の で す ( 第 2 一 


mua 
Da 


英 


mn 


X(5, 1) 
X(5, 2) 
X(5,3) 
| 
X(5,18) 
| 
X (5,28) 
X (5,29) 
X ($, 30) 


※ 出 番 三 出席 番号 教 番 = 教 科 番 号 


10 dim int X(5,39)7(0,0,0,*:::,0,0,0 
0,94,25,****,85,32, 18 
0,48,25, seg 82, 58, 98 


第 2 一 25 図 2 次 元 配列 の 初期 化 
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| の 中 に , 


X(9,?) の 部 分 


を の 初期 値 を , (コン マ ) で 区 切っ 





2 次 元 配列 





BIO Te R Ee Ru Ru ۴ KR MR پر ۷ یز( ای‎ RNB NRMDNRMRVRHRHRH RV ایا ای‎ ۹ Pd PU RN Pd PO PUE PORRO PURO PU PUR RUP PURO RU RN EN Rd PURO PU RUA RM FORO FUE REFER زی‎ 2 ES 2 変 数 Wd IA 


Sea GES,  2۱7100۸ ZeG ROO, 配列 を 宣言 する 時 に , dim int X (1) と すれ ば , X (0), 
E) が 存在 する こと で す 。 初期 化 の と き に , X (0) を 忘れ る と, 全部 1 列 ず つ ず れ て し まう 
۰۰ ۴۰۳ 
= 言 次 元 配列 

Lk, 2 次元 と き て , つづ いて その 他 の 配列 で す が , 宣言 の 仕方 は 念 ま で と 特に 代わ り ま せ 


dim int X (8, 5, 30) 
EOP, 8 クラ ス の テス ト の 集計 が で きる よう に し た と 思え ば いい の で す 。 Cor nië, 
X (5, 30) 
5p う 配列 が 8 個 あ る と 思え を ば いい の で す 。 こ の 配列 を こと ば で 表現 すれ ば ,「 1 クラ ス 30 人 で , 
クラ ス て 実施 し た 5 教科 の テス ト の 点数 を 格納 する こと が で きる 変数 」 と な り ま す 。X-BASIC 
DRAI HIE LTI, 高 次 元 配列 は 255 次 元 ま で 扱う こと が 可能 な の で す が , X-BASIC の 1 
の 文字 数 の 制限 が 255 文 字 な の で , その よう な 長い 配列 を 宣言 する 文 が 書け な い の は わか っ て い 
上 間 直 ける と 思い ます 。 

乏 談 と な り ま す が , 8 クラ ス で 1 学年 な ら ば , 1 年 生か ら 6 3 年 生ま で も 格納 で きる 配列 も, 4 
詩 葬 配列 て 可能 に で きま す 。 
Weess 3, 

学年 7 





, d 30 ) 
^ 教科 出席 番号 


その 他 の 変数 の 注意 


変数 は , 四 つ の 型 の 他 に , ロー カル 変数 と し グロー バル 変数 と いう わけ 方 が あり ます 。 これ は , 

前 連 の 四 つ の 型 と は 関係 な く , ブログ ラム 中 に を その 変数 が どの 位置 に ある か , また どの 位置 で 宣 
言 さ きれ た か に より 決定 され ます 。 これ は , ERO BASIC で は 変数 は 使い す て の も の だ っ た の で す 
が , XX-BASIC で は ブログ ラム 中 で 使用 する 変数 は 必ず 宣言 し な けれ ば な ら な い の で , ブ ログ ラム 
作成 時 に は プロ グラ マー の 管理 の も と で , それ ら の 変数 を 扱わ な けれ ば な ら な いと いう こと で す 。 
具体 的 に いう と , メイ ンプ ログ ラム 内 と 関数 内 で 宣言 きれ た 変数 の こと で , それ ぞ れ は まっ た く 
OXULC, その 橋渡し は 引き 数 と 戻り 値 で す 。 詳 し く は , 2 一 3 一 4 で 解説 し ます 。 


8 
i 
2 
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uwen 第 2 章 X-BASICO JEPE š inununununununununununununununununununununununununununuRunuRuRuRuRuRuRuRuRuRuRuñunRunununununununununununununununi 





数 学 で いう 関数 と は , 例え ば 

y= f(x) 
と 表現 し ます 。「f(x) =ax 填 b の グラ フ を 書き な る い 」 と いう よう な 時 は , 一 般 的 に は 最初 に 
x 三 0 を 代入 し , グラ フ 上 に f (0) を 計算 し て プロ ッ ト し , 次 に x= ニ 1 を 代入 し , f (1 ) の 計算 
に より も うー つ グ ラフ 上 に プロ ッ ト し て それ を 直線 で 結び まし た 。 こ れ は ,y テ ax 士 b と いう の 
x, 直線 の 方 程 式 で ある こと を 知っ て いる た めで , 実際 は f(2) と 表現 し て いる の で , その 内 容 
は わか り ま せん 。 を ん な 理由 か どう か , 関数 の こと を ある 数 値 を 入れ る と , 何 か 加 工 を し て 出力 
し て ん くる プラ ッ ク ポ ックス て ある と 等 あれ る 3 と ちと 6 あり ます 。 

ここ で 重要 な こと は ,「 あ る も の を 入れ る と, 何 か 加 工 さ れ て 出力 し て くる 」 と いう 単純 な こと 
で す 。 こ の 「 あ る 物 を 入れ る 」 と いう 入れ る も の を 引数 と いい ,「 加 工 さ れ て 出力 し て 《 く る 」 の 出 
力 は 戻り 値 と いい ます 。 

引数 は , f(x) の x の こと で , f(x) 全体 が 戻り 値 し な り ま す 。y=f(x) と 表現 し た y= 
の y は あく まで も 戻り 値 を y に 代入 し た も の で , f(x) 全体 で 戻り 値 と な る の で す 。 

3 T X-BASIC で は , 様々 な 命令 (X 68000 の 諸 機能 を 使用 する ) を 関数 の 形 で 実現 し て いま す 。 
また , X-BASIC で は 与 を られ た 関数 (付属 の も の ) 以外 に も , 自分 で 定義 し た 関数 を 使用 する こ 
جن جج وج‎ T. 





X-BASIC の 関数 の 種類 は , 大 きく わけ て 次 の 4 種類 が あり ます 。 
1) 標準 関数 

これ は , X-BASIC 内 に 初め か ら 内 蔵 き され て いて , 文法 きえ 間違え な けれ ば 何 の 定 義 や 宣言 等 を 
し な く て も 使用 で きる 関数 で す 。 関数 の 内 容 は , EU X-BASIC の 基本 的 な 操作 , 演算 , ファ イル 
操作 , デー タ 変 換 な ど で す 。 
2 ) 外部 関数 
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18۶1۴11۴ RO PR RM PURO RU PU PUER RPM ۹ ايا ۷ زی ۹ یز ۷ ای ۷ ای ای‎ ۹ NR ND ايا ايا‎ ND NR ايا ايا ۹ای ليا ايا أا ايا أا ايا ايا ايا‎ RO ايا ايا أا أا اما اما‎ NENNEN NR RR ای ۷ ليا‎ Pd Pd Pad R لما ايا ايا‎ 2 SC 3 関 数 “Rum 


これ は , X68000 の も つつ 機能 を 充分 発揮 で びき る よう に , X 68000 の ハー ドウ エア に, 密着 し た 内 
容 の 関数 で す 。 こ の 外部 関数 は , X-BASIC の 起動 時 に , "BASIC. CNF” と いう ファ イル に ., 
菩 録 され て いる 外部 関数 を 組み 込む た め , 初 めか ら 又 -BASIC の プロ グラ ム 中 に は 入っ て いま せん 。 
中 部 関数 は , 第 2 一 26 図 の よう な 種類 に 分 類 さ きれ て いて , X 68000 の 機能 別に 管理 きれ て いま す 。 


ZA oV 
グラフィック 関数 GRAPH. FNC 
・ ス プラ イト 関数 ا‎ TE) SPRITE. FNC 
ئا‎ RT ا و عق فو‎ (FM 音源 ) MUSIC. FNC 
・ オ ー デ ィ オ 関数 (ADPCM) AUDIO. FNC 
・ マ ウス 関数 MOUSE. FNC 
・ ジ ョ イ テ ッ ク 関数 STICK. FNC 


第 2 一 26 図 X68000 の 外部 関数 


従っ て , "BASIC. CNF” に 登録 きれ て いな い 関 数 は 使用 で きま せん 。 これら の 関数 群 は , ~. 
ENC と いう ファ イル で シス テム フロ ッ ピ ー の BASIC の ディ レク トリ 内 に あり ます 。 

3 ) 定義 関数 

標準 関数 や 外部 関数 や . その 他 の ステ ー ト メン ト に より , プ ログ ラム を 作成 す る 際 , 従来 の 60 
昭 時 プルー チン 的 な も の を , X-BASIC プロ グラ ム 中 に 関数 と し て 定義 する こと が で きま す 。 こ れ 
I, ス テー トメ ント の fnc = endfunc を 使用 する こと に より , 関数 化す ナオ する ご と が で きま す 。 

4 ) 外部 定義 関数 

外部 関数 は , 68000 用 の アモ セン ブラ に より 作成 きれ て いま す が , ユー ザー の 努力 し だ いで 外部 関 
数 同様 に , 自分 どけ の 外部 関数 を 作成 する こと が で きま す 。 こ の 方 法 に つい て は , 第 4 章 で 詳細 
を 説明 し ます 。 






関数 に は , 引数 と 戻り 値 が あり ます 。 こ れ は 2 一 3 一 1 で も 説明 し た 通り で す が , それ ぞ れ 引 
数 戻り 値 が どの よう な 型 の 数 値 . また は 文字 列 等 で ある か は , これ まで 説明 し た 通り 変数 の 型 
ログ ジテ マー が 管理 する BASIC で ある だ め , 非常 に 重要 な こと に な っ て きま す 。 

標準 関数 及び 外部 関数 で は , マ ニュ アル に を その 関数 の 引数 と 戻り 値 の 型 が 説明 され て いま す が , 
定義 関数 で は , ユー ザー が func ~ endfunc に より 定義 する の で , その 関数 の 引数 , 戻り 値 に より 
型 の 証言 を し な けれ ば な り ま せん 。 この 場合 , 関数 の 型 に あたる の は 戻り 値 の こと で , 2 一 3 一 
1 て 説明 し た 通り に 関数 f(x ) は それ 全体 が 戻り 値 ど ある こと か ら , 関数 f(x) の 型 と いう の 
は 戻り 値 の 型 の 宣言 に な り ま す 。 引 数 の 型 宣言 は , 引数 の 前 に 一 般 の 変数 の 型 定 言 同様 に , Duo 
の 型 の いずれ か を 使用 し て いる も の を お くく こと で 完了 する わけ で す 。 た だ し , X-BASIC で は 引数 
に 配列 を 使用 する こと は , 原則 的 に 不可 能 で ある た め 直 接 引数 を 配列 と せ ず , 配列 変数 は グロ ー 
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IRMA: 第 2 TE X - B ASIC の 基礎 ۹ک‎ RM اا اا‎ Pd PO ايا ایا اا‎ RM PO ROREM PORRO PU ادا ايا ايا ايا ايا ايا ايا ايا ايا ايا ايا‎ Fd PO POE Pd PUO PU اما ايا ايا ايا اما اما‎ FR PURO FR PUE HN ۹ اما‎ DA FU FRU ایا ۴ ايا ادا‎ 1 


バル 変数 も し て , メイ ンプ ログ ラム に 置い て 下さ い 。 


で で て AX BAC OT nr グラ を 大 きろ た むけ で る は すっ つう は ネイ ンプ RC A 
ログ ラム 全体 の 核 し な る も の で , 一 応 は この メイ ンプ ログ ラム で と どん な 事 を する の か が つか め ま 
+, も うー つ は 関数 で , ここ で いう 関数 と いう の は 定義 関数 の こと で, X-BASIC ブ ログ ラム に よ 
り ユー ザー が 作っ た も の を さき さ し ま し す 。 X-BASIC で は , 定義 関数 は end ステ ー ト メン ト (プロ 
グラ ム 終 了 ) 以降 に 関数 を 置か な けれ ば な ら な いと いう 約束 が あり ます 。 し た が っ て , 全体 の 配 
置 を 図示 する と 第 2 一 27 図 の よう な 形 に な り ま す 。 


end 


func mw 


関数 1 
endfunc 


func-^- 


関数 2 
end func 


func— 


関数 3 


end func 


第 2 一 27 図 X-BASIC プロ グラ ム の 構成 


具体 例 し し て , これ まで に 出 て きだ た ステー トメ ント だ け て 定義 関数 を 使用 し て 復習 し て み ま す 。 


18 int. x*18;-yzl15, z 
20 pránt.x 
30 print y 


40 z-tasizan(x,y) 
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"Li “u nunununununununununununuñunwnununwnunununununununununununununununununununununununununununununununwnunununun) 2-3 関 数 ML 


58 print z 

59 end 

190 func int tasizan(x;int,y;int) 
118 return(x+y) 

120 endfunc 


=1-8A 定義 関数 サン プル 例 


= ニ こ て, 新た に z と いう 変数 を 宣言 し て いま す が , これ は tasizan ( ) と いう 関数 の 戻り 値 を 
ERG 2 23k, 特に z を 宣言 せ ず に 50 行 で print tasizan ( x , vi と し て 良い の で す が , y= 
fix) の 型 に し た 方 が わか りや すい の で z に 代入 し まし た 。 | 

ST, この プ ブログ ラム の 実行 結果 は , 第 2 一 29 図 の 様 に な り ま す 。 





RUN 

1 9 

15 

29 

OK 
E os 


径 2 一 29 図 プロ グラ ム 実 行 


プログ ラム の 流れ を 最初 か ら 説明 し て いき まし ょ う 。10 行 目 は 各 変 数 の 宣言 で . x は 初期 値 を 
IOE L yIZISELT, z に は 初期 値 が な い の で 自動 的 に 0 に な り ま す 。20, 306 HE x E y P 
画 へ 表示 し て いま す 。 さ て , 40 行 目 か ら は こ こ て の メイ ン イ ベン ト で , tasizan ( ) と いう 関数 
20 値 を 代入 し て いま す 。 代 入 さ れる 戻り 値 , 即ち tasizan ( ) i£, どの よう な も の か と いう 
tr 3! 5 BERE Rx, y 了 が 与え られ て いま す 。 こ の よう に , 引数 は いて くつ あ っ て も 村 
わな い の で , 自分 で 必要 な 情報 を 引数 と し て . 関数 に 与え て 複雑 な 仕事 を 関数 に 実行 きせ る こと 
PTI T. ここ で は , た だ 二 つ の 引数 を 加算 し て , その 結果 を 戻り 値 と し て 返す だ け で ナ 。 z 
の 関数 の 内 容 は , 100 行 目 一 120 行 目 で 定義 きれ て い ます 。 定義 関数 は , func — endfunc で 囲ま れ 
だ 部 分 と いう こと に な り ま すか ら , この 関数 の 作業 は 110 行 目 の return ( x + و و سک پک و ای و‎ 
2$. ちな み に , 100 行 目 の 関数 の 弄 宣 言 と 引数 の 弄 征 言 は ご 覧 の 通り で す 。return ( ) Lu 
2 の は , 関数 内 だ どけ に 存在 する ステ ー ト メン ト で , ( ) 内 の 値 を 戻り 値 に する と いう こと ょ と です 。 
10 寺 15 の 25 が tasizan (x, y) の 戻り 値 な の で , z 9 て いで て よさ に な な まず 
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(RNB ES 2 I X - BASIC の 基礎 APA bd PA hA FA h PA d PA hd Fi PA ed PA had Fi PA had PA i FA bat FA had PA bi Fb PA i PA ii PO h FA bi PA bi PA hd PO bi PAU had PA bi PL ha PO bd PA bi PA bi PÛ bi Fi PÛ bf Û t PA bi PA ba PA h Fd FA bi PA d PA bf PA bat PA bi PA bd PÛ had PA ba PA h PR bi PA bad PA i PA b PA b PA b PA b PA b PA b A AE 





2 一 2 一 4 で 紹介 し た グロ ー バ ル 変 数 と ロー カル 変数 で す が , これ は 関数 と 非常 に 深い 関係 が 
あり ます 。 第 2 一 30 図 を 見 て 下さ い 。 


19 int a=5,x 

20 x=f (a) 

30 print x 

40 end 

100 func- int Te ria) 


119 int b 

120 b*c-1 

130 return(b*b) 
140 endfunc 





第 2 一 30 図 グロ ー バ ル 数 と ロー カル 数 


この プロ グラ ム は , グロ ー バ ル 変 数 と ロー カル 変数 の 両方 を 使用 し て いま す 。10 行 か ら 40 行 の 
end まで が メイ ンプ ログ ラム で , 100 行 目 以降 が 定義 関数 で す 。 メ ヌイ ンプ ログ ラム 中 の a と x が グ 
ロー バル 変数 と な り 関 数 内 の b と c が ロー カル 変数 と な り ま す 。 

ここ て 関数 を 定義 する 時 に 注意 し な けれ ば な ら な い の は , この プログラム 中 の 変数 a と c は 引 
数 の 渡す 側 と 渡る れる 側 の 関係 で , 同一 の 変数 で は な いと いう こと で す 。 こ の f(x) と いう 関数 
は 引数 が 一 つ で すか ら , カン コ 内 の 数 値 ま た は 変数 は 一 つ し か あり ませ ん 。 渡す 側 と , 渡る れる 
側 と で 間違え る こと は ほとん ど あ り ま せん 。 複数 の 引数 に な っ た と き は , カッ コ 内 の 引数 の 順番 
が 重要 な 情報 に な り ま す 。 渡す 側 と 渡る れる 側 の 引数 で 重要 な こと は , 変数 に 使用 し た アル ファ 
ベッ ト で は な く 〈, 引数 の 個数 と 順番 な の で す 。 こ の こと か ら , 引き 数 に 使用 し だ た アル ファ ベッ ト 
は , メイ ンプ ログ ラム と 関数 定義 の 時 の 変数 と 一 致し て いて も , 一 致し て いな く て も 構わ な い の 
KÉ 

ST, この プログ ラム の 実行 結果 は 次 の 通り で す 。a に 5 が 代入 る れ て , 関数 f( ) に 渡る れ 
関数 の 引数 の c に 代入 きる れ ま す 。 関 数 内 で , int 型 の ロー カル 変数 と し て 宣言 きれ た b へ <c の 内 容 
か ら 1 引い だ た も の が 代入 る れ 戻 り 値 と し て return( ) の ( ) 内 で b が 2 乗る れ て 戻り ます 。 

run 
16 
ok 
E 
も う 少 し ロー カル 変数 と グロ ー バ ル 変 数 が わか りや すく な る 様 に 念 の ゲ プログ ラム を 第 2 一 31 図 
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EBhc int 8ق یس‎ 






int a 






a=x- | 






return(a*a ) 






endfunc 





圭一 31 図 変数 を 2 関数 に 変更 


この ブロ グラ ム で は , 先程 4 種類 あっ た 変数 が a と x の 2 種類 に な っ て いま す 。10 行 か ら 40 行 
まで の メイ ンプ ログ ラム 内 の 変数 a L x は グロ ー バ ル 変 数 で , 100 行 か ら 140 行 まで の 定義 関数 内 
رےوہ‎ は ロー カル 変数 で 、 お 互い に 変数 名 は 同一 で す が , 違う 変数 で す 。 こ れ を 時 系 列 的 に 文 
STHA l, 第 2 一 32 図 の よう に な り ま す 。 


mt 型 の 変数 で a と x を 宣言 し て a に は 5 を 代入 し た 。 

f( ) の 関数 呼出 し を , 引数 の a=5 と し て 渡し , 戻り 値 は x に 代入 きれ る 。 

f( ) の 関数 を int 型 で 宣言 し 引数 x eint 型 で 宣言 する 。x に は a=5 が 代入 きれ x=5 
RJ. 

関数 内 で ロー カル 変数 a が int 型 で 宣言 する 。 


x か ら 1 引 いた だ も の を a に 代入 。 

a の 2 乗 を 戻り 値 と し て , 関数 を 終了 する 。 
戻り 値 を 代入 し た x を 画面 へ 表示 する 。 
プロ グラ ム を 終了 。 





第 2 一 32 図 第 2 一 31 図 の 説明 


この 例 で も わか る 様 に 。 atx と いう 変数 に は 2 種類 の 変数 が 存在 し て いま す 。 ロ ー カ メル 変数 
は , 関数 内 だ け で し か 存在 出来 ませ ん 。 第 2 一 33 図 の ゲロ グラ ム は , 同一 の 変数 名 の 値 を 見 る こ 
と が 出来 る も る の で す 。 


| 19 int a=5,x | 
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mm = KEE aaa na tata ta ta na naa nuna una nu RunwnuñunununuRununuRuRunununununuRununununununuRunuRunuRuRuBRuRMRMRMRMRVMN) 


2@ x=£(a) 

Tow a 

E print x 

58 end 

188 func int f(x;int) 
118 int a-1 

129 print a 

130 return(x) 

140 endfunc 


run 

1 > T 2 O $r O E 
5 TOF OEE 
5 …・4 0 行 の 結果 
0K 

g 


第 2 一 33 図 同一 の 変数 名 の 値 を 表示 

メイ ンプ ブロ グラ ム 内 の a は 5 を 代入 し た の に も か か わら すず 関数 内 で و‎ = 1 と し て print C& 1 
を 表示 し て いま す 。 メ イン プロ グラ ム に 戻り , a を print きせ る と 5 に な っ て いま す 。 

ST, グロ ー バ ル 変 数 と ロー カル 変数 も 少し ずつ わか っ て きた と 思い ます が , 引数 を 持た な い 
関数 の 場合 に つい て も 解説 し て み ま す 。 一 般 的 に 関数 と いう の は , 引数 に 対し 戻り 値 が あっ て は 
じ め て 意味 を も つの で す が , X-BASIC で は 関数 の 呼び 出し を する こと に 意味 が ある 場合 が あり ま 
Fo この よう な 場合 に は , その 関数 に は , 引数 が 必要 な か っ た り , 戻り 値 が な い 様 な 事 が あり ま 
+ (第 2 一 34 図 )。 


10 int x=19 

20 f() 

30 print x 

40 end 

100 func f() 

118 print "関数 1 

120 endfunc 
第 2 一 34 図 引数 を 持た な い 関 数 の 場合 

この 例 で は , 従来 の BASIC Cv フサ プル ルー チッ の よう な も の で print " 関数 1 ” と いう 処理 

を メイ ンプ ログ ラム で 実行 し な いで 関数 で 処理 きせ て いま す 。 も ちろ ん こん な 場合 に は 。return 
( ) は な く , endfunc に より 関数 を 抜け 出し ます 。 
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RP 2-4 制 ] 御 構造 と ステ ー ト ジン 7 ト (RUA‏ 64ب+-مِفبصھجمجج[ج[ وی تسس سرد شش اس تسد تشتت اتاد ددرت ددرت 


2-4 制御 構造 と ステ ー ト メン ト 





oO の 





従来 の BASIC で は , 関数 の 扱い が 曖 味 で あっ だ だ た だめ, ほとん ど が メイ ンプ フロ グラ ム Ld 
チン の 関係 で 処理 を し て UM dedo او ان‎ 3e obe $m k で です 。 MN C 
う の は プログ ラム を 構成 する も の で 各種 の 命令 群 て 3. X-BASICT'I は , この 命令 群 の 代わ り に 
関数 で 各 処 理 を 実行 し ます 。 その だ めか 従来 の BASIC で いう ぅ う ぇ テ ー ہے بر یی وت‎ 
と の 中 に , これ まで あま りお も 目 に 中 か ら な か っ > だ 制御 構造 が 加わ っ て きま し た 。 制御 構造 と いう 
Dez UZTADWIPESISLOU an te ٹا‎ な 地位 を 占め て DOE. CTI 
この 制御 構造 ヒス テー メン ト に つい て 解説 し ます 。 


سس 


BASIC の ブロ グラ ム は , 行 番号 の 小さ い 順 に プロ グラ ム が 実行 され ます 。 こ れ は 。 X-BASICC 
6 同じ で す 。 こ の 行 番号 の 小 き い 順 と いう 約束 を 破る 役目 を する の が 制御 構造 な の で す 。 従来 の 
BASICC は, REST OUT XE る だ め goto 一 。 gosub 一 文 が 使わ れ て さま し た 。goto 一 , gosub 一 
て 必要 と する 情報 は 飛ん で 行く 移 の 行 番 サ で す 。 こ れ で は . 行 番 写 に 依存 する プロ グラ ム に な っ 
て し まい ます 。 XX-BASIC で は こ - れ ら の goto 一 , gosub 一 を 使用 せ すず に プロ グラ ミン グ 出来 る 様 に . 
KORTE EMMONS 4. 














1 —< SE if "Had le | 

— D for—next | 
| — D while~endwhile 

a repeat~ until- ~ 


مرو لمحت switch‏ )6 ` : 





a te) は プ ブログ ラム の 流れ を 変 ぇ る も の て , b) —d) は 繰り 返し 作業 な ど に 使用 さき され る ルー 
の 命令 で す 。 
i if (条件 式 ) then (4138 1) else (処理 2 ) 
IER Ge weie, 間違っ て いれ ば God) 処理 2 を 
実行 し ます 。 eise RORA A, 処理 2 も 無く な り 次 の 行 へ 処理 が 移り ます 。 こ の 制御 構造 合 人 


49 
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は 従来 の BASIC に も あり , その 場合 に は 処理 1 や 処理 2 の 所 で , goto-, gosub— t KLEE e £L 
て いま し た 。。 も か し , X-BASICCikgoto, gosub を 使用 し な いで 済む よう な 夫 が きれ て いま す 。 
も と も と goto, gosub で 他 の 場所 に 処理 を 移す ほう が 不 自然 で , を の 場所 に 十分 処理 あ を こなせ る ス 
ペー ス が あれ ば ,。 何 も 違 う 場 所 へ 行っ て し な 《 て も いい 訳 で す 。 そ を そこで, XX-BASIC で は 変数 の 初 
لا 7 :0ر‎ T FOPA yva 光 使 ご きす 。 こ の | | Gët, Ae d. と は で 計る 
行 に まだ が っ て いて も いい こと か ら , 第 2 一 35 図 の 様 な 使い 方 が 出来 ます 。 


10 int x=15,y=10 

20 if xy then (zzx-y 
30 z-z*l 
40 br it る 


50 ) else(z=y-x 


60 z=z+] 
70 print Z 
80 j 

90 





第 2 一 35 図 | | で 複数 行 に また が っ た 処理 を 指定 で きる 

これ は , 20 行 目 の 後半 に ある | か ら 50 行 目 の 先頭 の | 迄 が 処理 1 で , 50 行 目 後半 の | か 
680THO | が 処理 2 となり ます 。 こ の プロ グラ ム は , x と y の 大 小関 係 か ら そ の 条件 に あっ た 
計算 や る せる プロ グラ ム で す 。 こ の プロ グラ ム で は , | 1 の 中 が 3 行 な の で 比較 的 楽に 解釈 で き 
ます が , も っ と 複雑 に な っ た 場合 は 関数 に よ り 王 一 then 一 else の 中 を すっ きり させ ます 。 

この 辺 が わが つっ つ て て る と 区 =-BASIC の ブロ グラ ハム も 腕 え る の が 是 く な っ て きも ず 。 

せ ーfthen テ else の 小 る に スペ ー ス へ | P (中 カッ コ ユ ) を 使用 し て 全て の 処理 を ず ま せ で て で しじま うこ 
と が ,。fーthen 一 else に 限ら ず と どの 制御 構造 に も ちあ て は まる 重要 な こと で す 。 


b) for (処理 ) next 

ある 処理 を 繰り 返し 実行 し な けれ ば な ら な いよ うな 場合 、 ルー プ の 制御 構造 を 使い ます 。 前述 
の よう に ルー プ の 制御 構造 は 3 種類 あり , この for-next は ルー プ す る 回 数 が わか っ て いる 様 な 場 
谷 に 使用 し ます 。 こ の for-next に よる ルー プ は 従来 の BASIC に も あっ て , よく 知っ て いる 人 も い 
る か と 思い ます 。 しかし, この 制御 構造 は 従来 の BASIC で も 行 番号 に 管理 され な い 制 御 構造 で あ 
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URL 2 7 4 市‏ آآہجج یمم .س سس تس یو مم مس مم سم ۸۷0رہ 


| 御 構 造 と ステ ー سوا‎ ト mm 


だ こと に 気が付い た 方 は 少な い CAU £T. for 一 next は 。 
for 初期 値 to 終了 値 
処理 


next 


この よう に , for か ら next ま で 囲ま れ だ 処理 を , (終了 値 一 初期 値 ) の 回 数 だ け ル ー プ し ます 。 E 


際 の ブロ グラ ム は 第 2 一 36 図 の よう に な り ま す . 


19 int x 

28 for x=f to 18 
39 print x 

40 next 


|. 50 end 
| 


第 2 一 86 図 for—next + ب‎ プル プロ グラ ム 





ILL, 第 1 章 で も 出 て き だ for 一 next の 使用 法 で も 一 番 簡 単 な 使い 方 で す 。30 行 の print 文 が 1 
か ら 10 ま て 変数 x を 変化 し な が らら 繰り返し ます 。 したがって, TT Om & 10 行 分 の 仕事 を し た 


Eo C49 £1. この プロ グラム の 実行 千 果 ほ 第 2 CATION پر ور ہے ہیں‎ 
だ こと が わか り ま す 。 





第 2 一 37 図 実行 結果 


ご の for 一 next に よる ルー プ は 非常 に 単純 に ルー プ を 作る こと が 出 
い カ を する こと が あり ます 。 あ る プロ グラ ム で 少 


来る た め , た い へ ん 面白 い 使 
し の 間 プ ロ グラ ム に 下 ま っ で て いて や も ら っ て 。 現 
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作家 示 中 の コメ ント を みて も らい だ い 様 な 場合 , 次 の よう に ルー ズ プ 回 数 を 多 目 に し て プロ グラ ム 
の ウー トト を が けた Dt 


表示 処理 
行 番号 forx = to 1000 : next 
表示 を 消す 処理 


ウェ イト する 時 間 は 終了 値 の 1000 を 少な くす れ ば 短く なり , 多く すれ ば 長く な り ま す 。 

この for 一 next に よる ルー プ で 注意 し な けれ ば な ら な い の は , for 一 next の 初期 値 を 代入 する 変数 
は int 型 で な けれ ば な り ま せん 。 ま た 従来 の BASIC で は ルー プ す る 際 の カウ ント 幅 が 自由 に 設定 で 
きだ の に 対し 、 一 つじ し か カウ ント アッ ズ プ 肖 来 ま きせ ん 。 従っ て イー つ ず カマ پا ا ا ا‎ E 
場合 は , 第 2 一 38 図 の よう な 演算 し な けれ ば な り ま せん 。 


int es 
for X50 to 5 
y=5-x 


print y 
next 


end 





第 2 一 38 図 初期 値 を 一 つ ず つ 減 らし て いく 場合 
まだ た ご つ ず つ 増 や す 場 合 は , 第 2 一 39 図 の よう に な り ま す 。 


E- aM £: ¿y 
for x=0 to 5 


y=2*x 


print y 
50 next 
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2 -4 


58 end 


o の x N e 


18 
ok 





= 2 一 39 図 初期 値 を 二 つ ず つ 増 や す 場 合 
و ہو ںو ور ہو ہی‎ az 
代目 分 自身 で 色々 確認 し て みる 必要 が あり ます 。 

E て ト の な こよ で し た が 実際 に は こん な 人 箇 単 な ルー プ ぱ かり で は あり ませ ん Ql 
mest の 外側 に for 一 next が ある 様 な 2 ek E tore- 
08ا9‎ 60700-730 ET i+, LATA. 
e E EE TALEC T. 


工夫 を 要求 きれ ます の で , みな き 


next が ある 3 重 ル ー プ な ど 
あわ て ず に 一 番 内 側 の ルー プ か ら 理 解す 






10 int x,y,z 
20 for x-8 to 1 








38 for y=9 to | 
40 ler z=0 toi 
50 






print x*100+y*]0+z 







68 next 
78 next 

80 next 

90 end 

run 

H 

1 

1 9 
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(RNB) 第 Es x: -BASIC の 基礎 RRR ای‎ R یی(‎ PM PU Rd RI ROI ای‎ RM UM RM یا ۹ لیا‎ Ru POR P لی‎ Ru Rd PU POR Pd PU RUNI RUM POP MR PRU NU PO POR PORRO RR RN NERO 





第 2 一 40 図 for-next の 三重 ルー プ 

な に や ら 2 進 法 の ょ うな 感じ が し ます 。 こ れ は , 三 つ の 変数 が 順に 0 と 1 CAUTE S, = 
番外 側 の 変数 が 100 倍 , 二 番 目 の 変数 は 10 倍 、 三 番目 の 変数 は を の まま で 加え た も の を 表示 し て い 
ます 。 ル ー プ を 重ね る こと で , こん な 面白 い 事 も 出来 ます 。 な お , この プロ グラ ム て , ルー プ が 
内 側 に な る ほど ステ ー メ ント を 書く 位置 が 後 ク の に な っ て いま す が , これ は イン テン ト と いっ て 処 


理 の 深き を 表し て いま す 。 今 どの 位置 に いて どん な 仕事 を し て いる か な ど が 。 記述 し て ある 位 直 
に よっ て わか り ま すか ら 非 常に 見 や すい プロ グラ ム に な り ま す 。 こ の 場合 も , 深き に 依っ て 今 と 
の ルー プ に いる か な ど が 表面 に 出 て きま す 。 | 
c) while (条件 式 ) endwhile 

- こ か ら は 。 今 まで の BASIC で は あま りみ か け な い 制御 構造 で す 。 こ の 命令 ふ ね ループ する 制御 
EE TTD 条件 式 が 満た きれ て いる 時 だ け 繰 り 返 し ます 。 し た が っ て ルー プ し な が ら 投 々 情報 
が 変化 し て いく よう な ルー プ で 使用 し ます 。 基 本 動作 は まず 最初 に 条件 式 で , ルー プ 内 の 短 理 を 
する か ルー プク せ ず に 次 へ 行く か を 判定 し ます 。 条 件 式 で の 判定 は , 一 then 一 else と 同様 に 条件 式 
が 正しけれ ば ルー プ 内 の 処理 を し 、 正 し てく な けれ ば endwhile 以 降 へ 処理 が 移り ます 。 982 一 41 図 
の プロ グラ ム で 確認 し て 下さ い 。 


18 int x=5 
20 while x<19 
38 print x 


40 x-x*l 

58 endwhile 
60` end 

run 

5 





6 
1 
8 
9 
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unununununununununununununununununununununununununununununununununununununununununuuu nu nuna 2-4 制御 構造 と ステ ー ト ab ト IR) 


= سوا وس اس سا ام‎ 
=2—41 while—endwhile H サン プル プロ グラ ム 


突 数 宣言 の と き に 5 を 代入 し た 変数 x は while に 入る と ころ て , 条件 x<10 で 判定 され ます が . x 
結 10 よ り 小 さい の で while 内 に 入り ます 。30 行 目 で x が 表示 き N, 40 行 で x が 1 加算 きれ 20 行 の while 
胃 精 で ます 。 こ うし て x が 一 つ ず っ 加算 きれ て いっ て 10 に な り 20 行 の while へ 戻っ た 時 。 条 
旧式 は x ぐ 10 を 間違え と 判定 し ます 。 し だ が っ て while 内 に は 入ら すず endwhile の 次 の 行 60 行 の end へ 
左 座 ジロ グラ ム を 終了 し ます 。 | 
d) repeat (処理 ) until (条件 式 ) 

これ は while 一 endwhile と 非常 に よく 似 た ルー プ で す が , 条件 判定 が ルー プ の 終わ り に あ D Së 
条件 が 満た され る まで ルー プ を し ま Ja ktera T while 一 endwhile で は 条件 次 第 で は 一 度 ぉ ル 
ー フ 内 部 を 通ら な い 事 も $ も あっ た の で す 2, repeat until で は 最低 一 回 は , ;v — 2 を 通過 し ます 。 


سور dE KLEER‏ لک AC‏ 25 7۳6 6 0650ی 


int x=5 
repeat 
print x 
X=x+] 


E وت‎ Ge 判定 が 逆 に な っ て いる 事 に 注意 し て 下さ い . 


end 





第 2 一 42 図 repeat-~until~ サ ンプ ルプ ロ グラ ム 

この ょ うに , while と repeat 廊 を 使い 分 ける こ と で より 効率 の 良い ブログ ラム を 記述 する こと が 
出来 ます 。 

$ C, ここ で while 文 Ë repeat 父 の 面白 い 使い 方 を 紹介 し ます 。 第 来 の BASIC で は 無限 ルー プ を か 
作る 場合 goto を 使 前 の 行 へ 処理 を 戻し まし سا‎ X-BASICCHU کے‎ 紹介 し だ while 娘 や repeat 
文 を 使う 事 が 出来 ます 。 while, repeat で 無限 ルー プ を 作る と い 2 う の は , それ ぞ れ の 条件 式 が 何 回 
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تاوا ادا اوا اوا اوا اوا اوا اوا ایا FRE PR‏ ایا ایا ایا ایا ایا ایا ایا ایا ایا PUER‏ ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ادا یا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ای ا PA‏ ا ۴۹ ES 2 TE X a BASIC の 基礎 (FM‏ لیلئیل 


ルー し て も 満た され な けれ ば 良い の で す (while 文 で は 常に 真 , repeatX T X365 C 15). 


while 1 repeat 
処理 処理 
endwhile until 0 


この よう に 記述 を する と 処理 は 無限 に 繰り 返さ れ ま す 。 第 2 一 43 図 の プロ グラ ム を 実行 し て み 
+ eS a; 


18 while 1 

20 print "無限 ルー プア " 
30 endwhile 

40 end | 


run 


無限 ルー プ 


無限 ルー プ 
無限 ルー プ 


無限 ルー プ 
無限 ルー ププ 
無限 ルー プ 





第 2 一 43 図 無限 ルー ププ ログ ラム 
この ブログ ラム を 停止 する 時 は , [BREAK | キー を 押し て 止め て 下さ い 。 こ の 無限 ルー プ で の 

条件 式 が 1 と いう の は ,X-BASIC が 条件 式 や 正しい か 正しく な いか を 0 か 0 で な いか に 依っ て 行 
っ て いる た めで , 条件 式 の 代わ ゎ わりに 1 と 置い て し まう こと で 判定 が 常に 正しい と 解釈 る され る た め 
c4. | 
e) switch (条件 式 ) 

case : 処理 1 

case : 処理 2 

case : 処理 3 

default : 処理 n 

endswitch 


何やら 6 今 ま で に 見 た こと も な いよ うな 制御 構造 で す 。a) の 直文 と 同じ 分 類 に な る 制御 構造 て , 
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nana nsnanununununununununununununununununununununununununununununununununununununununuunuunununununun, 2-4 制御 構造 ど だ ステ ー KS > ト amm 


Boa E SOTH, ifx ع‎ XE LI IX, 下 文 の よ に 処理 が 一 つ に 分 岐 す る の で な く 〈, case 
還 読 《 式 や 値 と switch に ある 条件 式 と を 比較 し , 一 致し て い る 場合 に その case に 続く 処理 を 実行 
C2. 第 2 一 44 図 の プロ グラ ム で 動作 を 確認 し て 下 き い . 


10 int x-3 

20 smitch x 
|. 38 case l:print "apple" 
40 case 2:print "orange" 
58 case 3:print "lemon" 
69 endsmitch 
79 end 
run 
lemon 
ok 







系 2 一 44 図 switch 文 サン プル プロ グラ ム 

この ブロ グラ ム で は , x と いう 変数 に 初期 値 3 を 代入 し て switch 廊 に 突入 し ます 。switch 文 で の 
本 作 式 は x な の で , この x と それ ぞ れ の case の 式 と が 順番 ( 行 番号 順に ) 比較 きれ て - 到 し た も の 
Et, その case 婦 が 実行 きれ ます 。 し た が っ て 。x= 3 て すか ら case3 : で 一 致し ます か ら print 
"lemon" が 実行 され ます 。 こ の よう に 。 い ぃ い Y つ か の 処理 を 条件 に よ b 分岐 きせ る 役目 を し ま T 
し か し , 使い 方 に 若 十 注意 が 必要 で す 。 信 の プロ グラ AC, 第 2 一 45 図 の 様 に 初期 値 を 1 に し て 
実行 し て み ま す 。 | 


18 int x-1 

20 switch x 

30 case l:print "apple" 

48 case 2:print "orange" 
98 case 3:print "lemon" 

60 endswitch 

79 end 

run 

apple 

orange 


l emon 


97 





| 






































EE 


DM 第 2 CS X = BASIC の ) 基礎 ت ی ی‎ 


ok 

8 
第 2 一 45 図 初期 値 を 1 に する と 

- の 様 に 最初 の case で 判定 が 一 致し て apple , 表示 きれ る と ころ まで は いい の て す が , 次 の case 

し その 次 の case も 実行 され て し まい ま も し た だ sswitch 六 は ; 一 度 正しい と 判定 され る と を の 後 の case 
AN tL Rent. E Zem EE 
な か っ た 時 の 分 岐 と し て , default が あり ます 。 こ の 働き を みる た だ た め に , 人 な の ブロ グラ ム の 初期 値 
を 4 に し て 55 行 を 追加 し て 下さ い (第 2 一 46 図 )。 


19 int x=4 

20 switch x 

30 case l:print "apple" 
40 case 2:print "orange" 
50 case 3:print "lemon" 
55 default:print "frgit- 
60 endswitch 

79 end 

run 

fruit 

ok 

E. 


第 2 一 46 図 default の 実行 

- の 様 に default は どの case て 5 引っ 掛か ら な か っ だ も の を 全て 引き 受け て くれ る 役目 を し ます 。 
この 場合 も , 先 に 説明 し た だ ひとつ 日 の case を 実行 し た 時 に いも づ る 式 に を の 後 の case を 実行 し て 
し まう の と 同じ 様 に default$ 実 条 し て し まい ます 。 
f) break と continue 

ERIT SCIES LR EE‏ وس و ہے 
造 を 制御 する 命令 を 使い ます 。 break は 現在 実行 し て いる 制御 構造 を 中 止 し て 制御 構造 を 抜け て‏ 
次 の 処理 へ 移る と いう も の で す 。 先 の プロ グラ ム に break を 入れ て 条件 に あっ だ も の だ け を 実行 出‏ 


来る 様 に し た も の が , 第 2 一 47 図 の ブロ グフ REE Ta 


18 int ×1 





20 switch X 
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“aan ایی ای ایی ای ای ایی( ایا ای یا لی یآ ای یآ ای لا ۴ی یا لی نی ای نا ایا یا‎ RA RUP ایی ایی یی‎ H P RU RM POP RM RD 2-4 制御 構造 EA > ke homm 


30 case l:print "apple":break 


40 case 2:print "orange":break 





50 case 3:print "lemon":break 
99 default:print "fruit" 

68 endswitch 

70 end 


run 








apple 


ok 
ë 











第 2-4750 break で 条件 に あっ た case だ け を 実行 

この 他 に break は for~next, while 一 endwhile. repeat —untili- 5 HAC , これ ら は ルー プ で 
すか ら , break が ある と ルー プ を 抜け 出 し ルー プ 以 降 の 処理 へ 移り ます 。 し か し , この break は も む 
や み に 入 れれ て ある の で は あり ませ ん 。 だ いた だ たい は 拉 文 と ペア で 使用 され ます 。 





ini x=] 
while 1 
If x-5 then print E D)” break 


print x 





X ニ x+] 
endwhile 


end 











第 2 一 48 図 証文 と break の 組み 合わ せ 
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SH sP, 2 Pa X-BASIC の 基礎 APAM ۳۹ ای‎ FA ایا ایا ایا ایا ایا ایا ايا‎ PA ایا ایا ایا ایا ایا‎ PRU ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا‎ RU ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا‎ RU RM ادا اوا اوا اوا‎ FR 


これ は , 変数 x の 初期 値 が 1 で while の 無限 ルー プ へ 入り ,x が 5 に な る ま て ルー プ し て 5 に な っ 
سر میمرت رد‎ k b bo” と 表示 し break に より ルー プ を 抜け ます 。 こ の 様 に , break 文 の 使用 
に は 色々 な 判定 を し た 結果 と し て break を 実行 する よう に な り ま す 。 

break は 実行 きれ る と, を の 後ろ の に ある ルー プ 処 理 を 切実 行 せ ザル ー プ を 抜け る 働き が あり ま 
435 これ と よく 似 た 命令 で , continue が あり ます 。 こ の 命令 制御 構造 を 制御 する も の て , continue 
が 実行 きれ る と を それ 以降 の ルー プ 処 理 を せ ず に ルー プ の 最後 に 飛ん で いき ます 。 ルー プ を 続け て 
いき 条件 に あっ た も の だ け を 処理 する 様 な 時 に 使用 し ます 。 し た が っ て , この continue は tor 一 next 
while 一 endwhile, repeat- untilO 3 種類 に の み 使 用 可能 で す 。 ちな み に break は switch 一 case 一 
default 一 endswitch を 加え た 4 種類 に 使用 可能 で す (第 2 一 49 図 )。 


19 inti x 

20 for x=9 to 19 
30 if x<5 then print "前半 ":continue 
40 print "後半 " 
50 next 

run 

前 کے‎ 

前 半 

BÚ >É 

前 半 

前 半 

後半 

後半 

後半 

後半 

ATF 

wF 

ok 

2 


第 2 一 49 図 continuoe サ ンプ ルプ ログ ラム 

変数 x が .。 5 より も 小さ きい 時 は 直文 に より BFE” と 表示 され , 同時 に continue も 実行 し ます か 
ら for ル ー プ の 最初 へ 戻り また 繰り 返さ れ ま す 。continue を 実行 し た 時 に は , for- next 0556 112 
数 が 一 つ 増加 し て ルー プ の 最初 へ 戻り , while 一 endwhile, repeat 一 until の 場合 は 条件 式 が 判定 き 
れ ま す 。 こ うし て x が 5 を 越え る と if 文 に より 条件 が 不成立 と な り continue は 実行 され すず , 40 行 の 
print "F^ が 実行 る れ て , 172 な っ た 時 に for-next の 終了 値 を 越え を て ルー プ 処 理 を 終 
わり ます 。 
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EE 2-4 制御 構造 L Z テー トメ ン hum 


こ Obreak, continue の 使用 に より 5. 肝 述 の 制御 構造 命令 と 共に より 一 層 復 雑 な 処理 が 可能 に な 
ます 。 行 番号 に と 6 われ る 事 な < X-BASIC の 処理 を 進め る 大 切な 制御 構造 で すか ら 十分 理解 し 
だ さい 





錠 米 の BASIC で は 処理 の 中 心 的 存在 だ っ か ヌメ وت و وو رو‎ E ATE の 処 
Mt チート Da 本 
せん 。 





Ve EE TON یں‎ e 
E وی یں ںوي سٹو‎ d 
(a) beep | 

Human68K (OS) が 起動 き れ だ 時 (電源 投入 時 や リャ レト CONFIG.SYS とい 5 
cS et HMD CI RSF TO 
کر ہب‎ RE RG EE ageet 
は ADPCM の 音声 デー タ で あ る こと か ら , ADPCM に ょ る 録音 & れ だ 音声 デー タ (例え ば 「 エ ラー 
て す 」。 な ど ) E, BEEP.SYS と し て ぉ け ば PASIC で プロ グラ ム 中 に エラ ー が 起き た 時 を と. 
- OBEEP 4 C 「 エ ラー で す 。」 な どの ォ ンジ デン を 特 生 の が で b 可能 で す 。 
(b) cls 
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کا ا ی۷۷ RM P RM RR‏ ا RR RM RR RR RR RM RM RM RR RM‏ ار[ ار RR ۷ RUF‏ ار ا تی ی۷ یر اتی ۷ر( ای یا تی ۷ہ نی یز ای ی۱ی اب یر ری یر و یر (RNB 第 2 章 K - B ASIC 0) 基礎‏ 


テキ スト 画面 の クリ アー を し ます 。X-BASIC で の ディ スプ レイ 画面 は テキ スト , 72747 
ZA, スプ ライ ト の 3 種類 の 画面 の 合成 で すか ら , その 内 の テキ ス F 画面 ど だ け を クリ ア す る わけ 
CT (テキ スト 画面 と いう の は , 文字 を 出力 する 画面 の こと で す )。 

(c) color 属性 

テキ スト 画面 の 文字 の 属性 を 設定 する 命令 で す 。 文 字 の 属性 と いう の は , 文字 の 色 , 標準 か 強 
調 か , 標準 か 反転 か を 意味 し て いま す 。 色 に は , BR, ZT, HO, 白 の 4 種類 が あり , その 他 
の 2 種類 (標準 さ 強 調 と 標準 っ 反転 ) に つい て は 2 種 ず つの た め 4X2X2 の 16 通 り の 設定 が で 
きま す 。 設 定 方 法 は 次 の 通り で す 。 





を それでは, 実際 に 第 2 一 50 図 で 動作 を 確認 し て み ま す 。 


int x 
for r70 to 15 


color x 


print "X68000" 


next 


color 3 


end 





第 2 一 50 図 color 文 サン プル プロ グラ ム 

この ブロ グラ ム で は , X68000 と いう 文字 が 色々 な 色 や , 字体 に 代わ りな が ら 6 表示 し て いき ます 。 
(dieder "ke"? 

テキ スト の パレ ッ ト の 人 色 を 変更 し ます 。X68000 の テキ スト に 使用 で きる 色 は , 65536 色 中 4 色 あ 
り ま す 。(c) の color 命 令 の と ころ で の 4 色 は , 黒 , シア ン , 黄色 , 白 の 4 色 で し だ た が, それぞれ 
の 色 を 65536 色 の カラ ー コ ー ド の 中 か ら 選 び 設 定 す る こと が で きま す 。[ | の 中 の 数 値 は 4 個 あ 
b, それ ぞ れ が , 0 一 65536 ま で の 数 値 し な り ま す 。 設定 方 法 は 次 の よう に な り ま す 。 
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Wgd E E RU AM PP 2-4 制御 構造 と ステ ー トメ ン homm 





GE ラー コー ド と > レット コー ド に つい て は 第 3 章 の GRAPH. FNC の 項 を 参照 し て 下る さい 。 
(el console 

テキスト 画面 は 文字 を 表示 する 画面 で , 768X512 ド ッ ト の 画面 で は 96 廊 字 X32 行 . 512 X512 ド 
ッ ト の 画面 で は 64 文 字 X32 行 の 表示 が で きる こと に な り ま す (console 命 令 は , 256X256 ド ッ ト の 
画面 で は 使用 で きま せん )。 

と ちら も 32 行 の 表示 が で きま す が , 最 下行 か ら 次 の 行 に 表示 が 移る 時 に , 画面 が 1 行 ず っ 上 へ 
すれ ます 。 これ を スク ロー ル と いい ます が , 何 も 指 定 し て いな い 時 は 全 画 面 が スク ロー ル し ます 。 
この スク ロー ル 機 能 を , 何 行 目 か ら 何 行 分 に 限定 する か を 指定 す る の が console 命 令 で す 。 し た が 
っ て , スタ ロー ル 開 始 行 の 指定 は , 0 一 30 と な り ス クロ ー ル 範囲 は , 1 一 31 に な り ま す 。 実 際 の 
設定 方法 は 次 の よう に な り ま す 。 





GE) ファ ンク ショ ン 表 示 分 と し て 最 下行 は 。 ユー ザー が 使用 で きま せん 。 ま た , 3 番目 の 数 値 は 。 0 
か 1 で , 0 な ら ば ファ ンク ショ ン キ ー 表 示 な し 。 1 な ら ば ファ ンク ショ ン キ ー 表 示 あ り と な り ま 
す 。 | 
( f) error onZerror off 
一 般 的 に 。 ブログ ラッ ム 実行 中 に エラ ー が 発生 する L U プロ グラ ム PHRGELCEOÓNCEUA.x 
フー が 発生 し た か を 画面 に 表示 し ます 。 こ の エラ ー の 中 で ,. 関数 に よる エラ ー に つい て は 。 エラ 
ー て ある こと を 走り 値 で 知ら せ て くる も の も あり , £k, プロ グラ マー が エラ ー が 起こ る 可能 性 
判断 て き て いる プロ グラ ム も あり ます 。 こ ん な と き に , いち いち エラ ー が 発生 する た びに プロ 
クフフ ム が 合 止 し て いて は 困る の て 関数 エラ ー が 発生 し て も, その まま 次 の ステ ー ト メン トム 人 
め る よう に , error off が あり ます 。 ま か た, エラ ー の 発生 を 知ら せる 様 に する た め に , error on が あ 


کا ہر 
注 ) プロ グラ ム を RUN に より 実行 し た 直後 は , 強制 的 に error on の 状態 に な り ま a z‏ ( 
(g) exit ( )‏ 


ya) が つい て 関数 の 形態 を た っ て いま す が , 引数 も 戻り 値 も な い の で . 命令 (スラ‏ یرک 
TAD も し て 分 類 き れ て いま す 。 こ の 命令 は 現在 の 状態 を 全て 破棄 で きる 状態 (ファ イル‏ 
人間 オ ー プ シン し て いれ ば クロ ー ズ ずる ) に 処理 を し て , E BS‏ 
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(my, 第 2 = e / 3 B ASIC の ) 基礎 ای ۴۹۹ بیز ۹ ای ۹ اط ۷ ایا 8 ای 9 لیا ۹ ای ۹ کیا ۴۹ک‎ ۹١ ایز ۹ نیا‎ ۴١ ایز ۴۹ ایا ۹ ای ۴۹ ایا ۹ ایز ۹ ای( ایا ۴۹ ای‎ ٣ ای ۹ ای‎ AM ۴۹ ای ۴۹ ایز[ ا ۹ ای ۴۷ ایز [۶ ایز‎ RM MAUR PPM RP یز ۳۷ ایز ۷ ایز‎ ۴١ ار ۴۹ ای ۹ار ۴۹ ای ۹ ایز ۷ی ۹ ایز ۷ ای‎ ۴١ ا(۳ از 7۷ای‎ ١ ا [ ای‎ ۴9 MRM 


の は , X-BASIC を 起動 し た 時 の 状態 を いい 。 VS モー ド な ら VS モ ー ド へ 。 コマ ンド モー ド な ら コ 
マン ドモ ー ド へ 戻り ます 。 こ の 命令 を 使用 し た プロ グラ ム を 制作 し て いる 時 は 。. P LIU iv 
ィ ス ク へ 保存 を 繰り 返す か ,、 EXIT ( ) を ブロ グラ ム 完 成 時 に 書く 様 に し ます 。 い っ た ん この 命 
沿 を 実行 する と 、。 プ ログ ラム エリ ア も 磯 譲 し て し まい ます 。 
(h) gosub/ return 

人 従来 か ら 引 きず っ て いる 命令 で , サ ブル ー チ ン を コー ル し ます 。 飛 ぶ 先 は , 行 番号 で すか ら gosub 
行 番号 と な り , サブ ルー チン て で return を 見 つけ る E, gosub で 飛ん だ 次 の ステ ー メ ント か ら 処 理 
が つづ きま す 。 と に かく 使用 で きる と いう こと だ け で 使わ な い 様 に する の が 一 番 で す 。 
(i) goto 

h) 同様 , 行 番号 を 目標 し し て プロ グラ ム を ジャ ング "し ます 。 こ の 命令 も 使用 し な い 様 に し 

た だ 方 が 得策 で す 。 
(j) input. キー ボー ド か ら 入 力 る れる デー タ (CE, 数字) を 指定 し た 変数 へ 代入 し ます 。 この 
命令 は 使い 方 が 非常 に 多い 命令 で す 。 


(1)input a (a は 入力 し た い デ ー タ の 型 に 宣言 きれ て いな けれ ば な ら な い ) 


この 命令 が 実行 きれ る と 画面 に は ? ( ク ェ ッ ショ ンマ ー ク ) が 表示 きれ て ,。 キー ボー ド 
か ら 入 力 待ち 状態 に な り ま す 。 入力 する の は , 代入 きれ る 変数 の 型 に あっ た も の で な い 
と デー タ の 型 が 眉 う の で , メッ セー ジ が 出力 され て 再度 入力 待ち 状態 に な り ま す 。 文字 
列 変数 の 場合 に は , 入力 され る 字 数 に も 注意 し て 下 き い 。 

(2input “メッセージ” ja 


"^ (引用 符 ) で 囲ん だ メッ セー ジ を 画面 に 出力 し , その メッ セー ジ の 後ろ に ? ( ク ェ ッ 
ショ ンマ ー ク ) も 出力 され , 入力 待ち 状態 に な り ま す 。 あ と は (1) と 変わ り ま せん 。 


(3jnput メッセージ”", a 
(2) と 変わ ら な い の で す が , メッ セー ジ の 後ろ に は 何 $ 出 力 き され ませ ん 。 


(4)input a, b (a と b は , それ ぞ れ 入力 し た い デ ー タ の 型 で 宣言 きれ て いな けれ ば な ら な い ) 
復 数 の デー タ を 入力 する 時 に 使用 し ます 。 変数 を カン マ で 区 切っ て , 並べ て 記述 し ます 。 


入力 方 法 は , デー タ と デー タ を カン マ で 区 切っ て 入力 し ます 。 変 数 の 個数 より 少く 入力 
する と , “デー タ の 個数 が 足り ませ ん ” と メッ セー ジ が 出力 され て 入力 待ち 状態 に な り ま 
す 。 ま た だ た , デー タ の 個数 が 変数 の 個数 より 多く 入力 し て し て し まっ た と き は 。 “デー タ の 
個数 が 多 す ぎ ま す 。” と メッ セー ジ が 出力 され て 多かっ た 分 の デー タ は 無視 きれ て 次 へ 進 
み ま す 。 


それ で は 第 2 一 51 図 て , 一 般 的 な 入力 方 法 の 確認 を し て くだ さい 。 


| 10 int a | 
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20 str b 

30 input "Zt (&",a 
EE input U” TE” b 
598 print a 


print b 


end 





第 2 一 51 図 input 文 サン プル プロ グラ ム 
(k) key 

テキ スト 画面 の 最 下 行 に ファ ンク ショ ン キ ー の 内 容 が 表示 きれ て いま す が , を の ファ ンク ショ 
ン キ ー の 機能 を 定義 し ます 。KEY ナ ン バ ー は 1 一 20 ま で あり . 1 一 10 が F 1 ーF10 に 対応 し . て いて 。 
1 一 20 は |SHIFT HF 1 一 IF10| に 対応 し て いま す 。 文字 列 の 長き は 32 文 字 ま で 有効 で す 。 設 定 方 
法 は 次 の 通り で す 。 

10 key 1 “renum ۲۳ 

@M は コン トロ ー ル M で , Hl (キャ リッ ジリ ター ン ) の 事 で す 。 こ の よう に ュ ン ト n —Jv 36 
は , @ を 付け て 記述 し ます 。 
(1) linput | 

(j) input 同 様 。 キー ボー ド か ら デ ー タ を 入力 する 命令 で す が , 文字 列 変数 し か 指定 で きま せ 
ん 。input 父 で は , その 機能 上 の 制約 で , (カン て ) や ^" (引用 符 ) は 入力 で きま せん が . linput 
Fir =a AU SSE. 全て 代入 きれ ます 。 だ だ し ,。 入力 て きる 文学 数 は sf 型 変 
数 の 宜 言 し た 時 の 文字 数 の 制限 が あり ます が , この 他 に 画面 の 1 行文 の 制限 も あり ます の て で 注意 
が 必要 で す 。 実際 の 用 法 は 次 の 通り で す 。 





(m) locate 
指定 し た 位置 へ カー ソル を 移動 し ます 。 その 他 の 機能 し し て , カー ソル 表示 を する しない の 
指定 も で きま す (ブログ ラム 実行 中 の み 有 効 で す )。 






カー ソル x 座 標 は 0 から は じ ま り 画面 サイ ズ に よ ょ り , 512X512 の 時 は 63, 768X512 の 時 は 95 と な 
り ま す 。 カ ー ン ソル y 上 座標 は 0 31 と な り ま す 。 
第 2 一 52 図 は , locate を 使っ た プロ グラ ム で す 。 


19 cls 
¿D locate 31,16 
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くく トト トト 


IR 第 2 E X-BASICO 基礎 IRuRuRuRuRuRuRuRunununununununununununununununununununununununununununununununununununununununununununununununununm 


30 print "X-BASIC" 
E 40 end 





| 第 2 一 52 図 locate 文 サン プル DEY TM 


(n) print 

BEE EE EEN 
列 を 表示 する 時 は , str 型 に 変数 か ,^ (引用 符 ) で 囲ん だ 文字 の 並び を print の 後ろ へ 置き ます 。 数 
値 を 表示 する 時 は , 数 値 型 変数 (char 型 , int 型 float 型 ) を print の 後ろ へ 置き ます 。 色々 と 細か 
ぃ 書式 が あり ます が , 次 の よう に 分 類 る され ます 。 





(1) print Z X 

AOV» era n i+, LONE, 数 値 型 変数 (char 型 , int, float) Dan 
CHER EUER (str 型 ) の 場合 に は 文字 列 が それ ぞ れ 出力 され ます 。 こ の 変数 の こと を 
x きれ る 要 案 も 呼び ます 。 出 力 きれ た 後 で 。 次 に 出力 する 位置 (カー ツル 位置 ) が の 7 の 
x 頭 に かがり ます 。 こ れ を 改行 し いい ます 。 © - で 間違え 易い こと に , 変数 名 が その まま 出力 され る 
| kL 3 نویب 3ور‎ bT TD 変数 名 が を の ま 画面 に 出力 きれ る の で は あり ませ ん 。 
| (2) prit "3C£ EU 

^ (引用 待 ) で 凍え れ た 女 字 の 並び の 場合 は , その 廊 字 の 並び が その まま 画面 へ 出力 され ます 。 
GIN) で 囲ま れ た 文字 の 並び は , str 型 変数 の 初期 化 で も 出 て きま し た が , Wa MRT UEM 
な と 思え ば (1) の 文字 列 変 数 の 出力 で ある と 理解 出来 ます 。 こ の 場合 も (1 ) 同様 , 出力 後 の 
カー ソル の 位置 は 次 の 行 の 先頭 に が な り ま す 。 
(3) prin ARL ARA ° AER 

print Ck, 複数 の 要素 を : (セミ コロ ン ) で 区 切り 続け て 記述 する こと が 出来 ます 。 ERS, 
EC ACC S その 混合 で も 構い ませ ん 。 画 面 に は これ ら の 要素 が 連続 し て 出力 きれ ます 。 ま 
p 最後 を 要素 で 終わ ら ず : (モミ コロ ン ) で 終わ る と , (1), (2) の 様 な 改行 は し ませ ん 。 = 
の 場合 、 次 に print 廊 が 実行 きれ る と 現在 の カー ツル 位置 か ら 出力 され ます 。 最 後 が 夏 素 て 符 わ っ 
て に れれ ば 改行 も ます 
(4) print. 要素 1, 要素 2, ・・・, 730 

(3) と 同様 に 要素 を (カンマ ) で 区 切り ます 。 こ の 場合 , (3 ) TERR LEDER LC 
出力 きれ る の に 対し 要素 同士 を 8 廊 字 に 区 切っ て 出力 し ます 。 一 つの 要素 が 8 文字 以内 で あれ は 
あたかも を の 要素 が 8 文字 で びあ っ だ か の ょ ぅ に 、 次 の 要素 は 8 文字 目 か ら 出 力 きれ ます ぎる ヒ 。 


aan 文字 を 越え る よう な 場合 に は 次 の 8 文字 の 区 切り に な り , 8 文字 な ら 次 の 要素 は 革 続 し 
て 出力 る れ ま e E 


(カン マ ) を 最後 に 付け て 終わ る と (3) 同様 , 改行 され ず に 次 の 出力 され る の は 最後 に 出力 
(5) print using EN’ : 変数 (数 値 型 ) また は 数 字 

書式 部 分 に 決め られ た 書式 を 表す 記号 の 並び を 記述 する と, 変数 また は 数 値 が その 書式 で 表示 
され ます 。 決め ら れ た 書式 を 表す 記号 は , 次 の 通り で す 。 
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APR Pad Rd Pd Pd Pd Pd Pd PUO Pd Pd Pd Pd Pd Pod ای ۹ ای۷‎ RM RM ۷ SRR UR UR ۹ی ا لی( ۹ ا ۴۷ای ۷ای ۷ای ۹ ا‎ UR ۷ای ۷ی‎ Pd Rd RE ۷ لی‎ P ۷ لی‎ Pad PL ز3 و‎ 2 — 4 制御 構造 と ステ ー ト メン ト em 





表示 する 数 値 の 桁 数 を 指定 し ます 。 


















小数 点 の 位置 を 指定 し ます 。 はみ出 し た 桁 は 4 捨 5 入 し ます 。 





符号 を 付け て 表示 し ます 。 一 の 場合 は , # の 後ろ に 設定 し ます 。 


1 
(6) print using EN’ : 変数 (文字 列 型 ) また は 文字 列 
(Si と 同様 に , 文字 列 に つい て 色々 な 書式 を 指定 する こと が 出来 ます 。 


文字 列 の 先頭 の 1 文字 だ け を 出力 し ます 。 
文字 列 を を か ら & ま で の 文字 数 に 指定 し ます 。 


これ は , (5), (6 ) で 紹介 し た 書式 を 設定 する 記号 を _ (アン ダー バー) 
後 の 1 文字 どけ を た だ の 文字 に する も の で す 。 








GE) これ ら の 記号 は , 組み 合わ せ て 使用 する こと が 出来 ます 。 色 々 と 試し て みて 下さ い 。 
ol rem U *) 

remarks (ESQ ORC, ジジ ログ ラム に 関係 し た コメ ント や ゃ 覚え 書き な ど を 注釈 廊 と し て プログ 
ラム 中 へ 書き 込む こと が 出来 ます 。 1 行 全て 注釈 の 場合 は その まま プ * に 続い て 書き 込む こと が 
出来 ます が , ステ ー ト メン ト の 後ろ に 注釈 廊 を 書き 込む 場合 は , : (コロ ン ) を 付け て 他 の ステ 
ー ト メン ト 同 様 に マル チ ス テー トメ ント に し な けれ ば な り ま せん 。 実際 の 使用 例 は 第 2 一 53 図 の 
通り で す 。 


19 HZ hii Rxcsy. 


20 print "test”:/* 注 釈 文 の テス ト で す 。 
第 2 一 53 図 rem (/*) サン プル プロ グラ ム 
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p) screen 

表示 画面 の サイ ズ , 実 画面 の サナ イズ, 解像度, グラ フィ ックス 画面 の on ノ off を 指定 し ます 。 こ 
の ステ ー ト メン ト の 詳細 は , 第 3 草 の GRAPH.FNC の 所 で 解説 し ます 。 

q) stop 

ブロ グラ ム の 実行 を や 中 断 し ます 。 こ れ は , プロ グラ マー が 意識 し て プ ブログ ラム 中 に 入れ て ちく 
も の て , 実行 中 に 実行 過程 が 良く 判ら な いよ うな 所 に 入れ , そこ で スト ッ プ し て 途中 の 経過 を 確 
認 す る 時 な ど に 使用 し ます 。 一般 的 に は , 完成 し た プロ グラ ム に は あま り 使 われ て いま せん 。 こ 
の stop に よっ て 中 断 し た プロ グラ ム を 再開 する 時 は cont コ マン ド を 使用 し ます 。 し か し , 中 断 し た 
時 に プロ グラ ム の 変更 する と , 再開 で き な く な り ま すか ら 注 意 し て 下さ きい 。 

r) width 

この 命令 は , XX-BASIC の マニ ュ ア ル 上 で は コマ ンド と し て 紹介 きれ て いま す 。 コ マン ド は 。 第 
1 草 て も 説明 し まし た が ブロ グラ ム 中 で は 使用 で きま せん 。 し か し , この width に つい て は 例外 で . 
ブロ グラ ム 中 の 使用 が 許さ きれ て いま す 。 従っ て , 他 の ステ ー ト メン ト と 同様 に ダイレクト モー ド 
て 使用 し た な たり, プロ グラ ム モ ー ド て 使用 し た り し て も か まい ませ ん 。 ど ちら か と いう と 分 類 と し 
な 枯 。 ス テー トメ ント に 属す る も の で す 。 

この 命令 は , 画面 に 表示 され る 文字 数 を 変更 する も の で X-BASIC で は 96 文 字 と 64 文 字 が 許さ 
E ee E 画面 に 表示 き れる 人 行 数 に 変化 は あり ませ ん 。 第 2 一 54 図 は , この width を 実 ` 
際 に ブロ グラ ム 中 に 使用 し た 例 で す 。 


int x 

width 96 

locate 48,18 

print “WIDTH 96" 

for x=9 to 2088: ۱ 
width 64 

kócate 32,18 


print "WIDTH 64" 

for xz to 2008:next 
width 98 

print "WIDTH 96 AGAIN" 
for x=0 to 2999:next 
width 4 


end 





第 2 一 54 図 width サ ンプ ルプ ログ ラム 


この ブロ グラ ム 結 末 は , 表示 画面 を 96 文 字 モ ー ド に 切り 替え ぇ , 画面 中 央 に WIDTH ”ھو‎ Lx 
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e "EE 


“ana nananunanunununununununununñununununuñunununununununununununununununununununununununununununununununununi 2-4 制 御 構造 と AT Bum ト RA ト IRMA 


BUT. LIES Cho TIGRE F EGIDCEU LTP "WIDTH 64” と 表示 し て 
まだ し ば らく た っ て か ら 画 面 モー ド を 96 廊 字 し て 画面 中 央 に "WIDTH 96 AGAIN” と 表示 し ょ 
Fo そし て , また し ば らく た つと , 元 の 64 文 字 の 状態 に 戻り ます 。 
ーブログ ラム を 実行 し て みる と , cls 命 令 が な い の に 画面 モー ド 切 り 震え の 時 に 表示 画面 が ク 
ジア る れ て いま す 。 こ の 命令 を 実行 す る と テキ スト 画面 が クリ ア さ れる こと KSE TP O 
この 例 で は 確認 出来 ませ ん で し た が , この 命令 を 実行 する と テキ スト 画面 が クリ ア き れる だ 
MERR, グラ フィ ッ ク 画 面 も 同時 に クリ ア き れ て し まい ます の で 注意 し て 使用 し な いと せっ か 
N 莉 じい だ グラ フィック ス の 絵 が 一 出 の うち に 消え 去っ て し まう 事故 も 起こ りか ね ませ ん 。 ょ ころ 
て ・ 今 の 例 で 96 文 字 と 64 文 字 し か 指定 し な か っ た の は , この 命令 に 使用 出来 る 数 字 は 64 ょ 96 し か 。 
な いか ら で , ステ ー ト メン ト の 文法 説明 と し て は . 
width 64 
width 6 
の 2 種類 の 命令 が ある と 覚え て も ら え ば 結構 で す 。 
ST, 第 2 一 54 図 の 中 に あま り 意 味 の 無 さそう な 行 が 3 行 ほど あり ます 。 
for x= 0 to 2000 : next 
"TU, 測 御 構造 の と ころ で 紹介 し た プロ グラ ム の ウエ イト で す 。 こ の プロ グラ ム で は 。 表 示 
96 チ モード や 64 文 字 モ ー ド に 切り 共 わ っ た 時 に その こと を 確認 る だ めこ Pr で 
人 の 表示 モー ド て 文 字 を 出力 し ます が 。 出力 後 すぐ 次 の 表示 モー ド に 切り 替 ゎ っ で し まう の で 
まっ た だ たく print 文 に よる 表示 を 見 る こ と が 出来 ませ ん 。 そこ て CODES る エイ ド ( 宅 
ルー プ ) て 一 定 の 時 間 , 表示 し て いる 内 容 を 見 る こと が 出来 る の で す 。 
これ ま て 人 色々 と 説明 し て きだ た ステー トメント は , サン プル プロ グラ ム で は 体験 で き な い 良 い ょ 
ころ や な か な か 使う 時 に 厄介 な も る の な ど が た くさ ん あり ます 。 た えま な い 探 究 心 が あれ ば 乗 
ANTL, また 新しい 使い 方 な ども 覚え ます 。 常 に 実行 し て みて 疑問 を 持つ こと が 必要 で す 。 
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E15 XBASIKOERS‏ ہمہ 


2-5 ファ イル の 管理 





これ まで て は 。 ا‎ tom ےو ہے رش‎ まま し た 。 ピ ログ ダラ bt Ste kr, 
A68000 の メモ リ 上 (X-BASIC の プロ グラ ム メ モリ ) に 書き 込ま れ て いま す 。 こ の まま で は 。 和 電源 
を 切っ て し まえ ば プロ グラ ム メ モリ 上 の プロ グラ ム は 消 減 し て し まい ます 。X68000 に は 。 2 HD タ 
イプ の フロ ッ ピ ー デ イス ク が 2 機内 蔵 さ きれ て いま す 。 X-BASIC Cl, この ディ スク を 利用 し て 
ブロ グラ ム を 保存 し た り , 保存 し て ある プロ グラ ム を プロ グラ ム メ モリ へ 呼び 出し た りす る こと ょ 
が 出来 ます 。 





X-BASIC の ブロ グラ ム を ディ スク へ 保存 する 時 に は , 現在 作成 中 また は 完成 し た プロ グラ ム 
に 名 前 を 付け て 保存 し ます 。 こ の 名 前 の こと を ファ イル ネー ム と 言い 。 保存 き れ た だ た 後 は Human68 
k て 管理 され て いる ファ イル と 共有 の も の に な り ま す 。 一般 的 に X-BASIC 起動 時 に は . "BASIC" 
と に い プ デイ レグ ドサ 内 ピ い ま の で に ご の ディ アッ ず け は 和 木 存 ず る 場合 に 上 デイ レク ド ا‎ yh 
と の わずらわし い 操 作 は 必要 あり ませ ん 。 本書 で は , OS の 解説 書 で は な いた め 基 本 的 な ファ イル 
操作 ば , "BASIC" ディ レク トリ 内 だ け に 限定 し て いま す 。 

S て ーブログ ラム の 保存 は 、 save と いう コマ ンド に より 実行 し ます 。 この コマ ンド の 書式 は 。, 
次 の 通り で す 。 





この プチ テオ イル ネーム は 8 文字 まで 。 その 後ろ の に . (ピリ オド ) を 付け て aremt ER 
ける こと が 測 米 ます 。 X-BASIC の プロ グラ ム に 付け る 拡張 子 は BAS ま た は bas と 決め られ て いま 
す 。 まだ, save の コマ ンド で プロ グラ ム を 保存 する 時 に この 拡張 子 を 省略 する と 自動 的 に . BAS 
の 拡張 子 が 付き ます 。 簡単 な アロ グラ ム を 作成 し 実際 に その プロ グラ ム を 保存 し て み ま す (第 2 一 
55 図 )。 


19 int x=19,y=15,z 
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(unununununununununununununununununununanunununununununununununununununununununununununununununununununanununununununununuma 2 SC? D 2. Ze イ ノレ の ) KE JH! IRF) 


20 z=x+y 
5, » » ç ۔ھھ وو‎ 


SB چا ;2; و وک چو ڑ0‎ Ee 
40 end 


run 
z=25 | 
OK 


save "test" 
OK 
E 





第 2-5530 "test" と いう ファ イル 名 で save 

この 例 で は , 一 度 ア ログ ラム を 実行 し て か ら 6 tes" と いう ファ イル ネー ム で ディ スク へ 保存 し 
て いま す 。 保存 され だ た こと を 確認 する た め に , files ユ マン ド を 実行 する と , 第 2 一 56 図 の 様 に な 0 
Kg 











files 
496 KK バイ ト が 使用 可能 で す 
"A:XBASICXBASIC t e. 
|* 46290 87/85/15 12:00:00 
7A:\BASIC\BASIC . CNF” 
/* 142 87/05/15 12:00:00 
"A:XBASICXAUDIO . FNC” 
| /* 540 87/05/15 0 
7A:\BASIC\GRAPH . FNC” 
/* 35294 87/05/15 12:00:00 
”A:¥BASIC¥MOUSE FNC” 
/* 926 87/05/15 12:00:00 
7A:\BASIC\MUSIC ERC: 
/|* 21528 87/05/15 12:00:00 
"۸: ۵] . FNC” 
/* 2656 87/05/15 12:00:00 
"A:XBASICXSTICK . FNC” 





EE یہ‎ 07/05/15 12 sa aa 
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(RSR) 第 2 T x - B A S I G の 基礎 ۷ ۷ی ۷ یا ۹ یز ۹ ای ۷ ایا ۷ نی ۹ یز۴۱ نی ۷ یر‎ ER یا ۷ ای یا ۷ لیا ایا ای ۴ زی نیز ۷ی ۷ ایا ۴۷ ای‎ RRR UR ا‎ ۹ NM RM RM NM M ا‎ Rid Pid Rid ۹ ایا‎ P RR P RU PO ایا‎ Pd Pd PU RM ۹ لی لی‎ P REPE RO 


OK 
š 


第 2 一 56 図 files で 確認 

"BASIC" ディ レク トリ 内 に 保存 きれ て いる ファ イル 名 が いく つか 表示 る され ま す 。 こ の 中 に 今 保 
存 し た \teat.bas′ と 言う ファ イル ネー ム が あり , 拡張 子 の .bas も 付い て いま す 。 こ の 他 に , その 
下 に は この ファ イル の サイ ズ や ファ イル を 保存 し た 日 付 や 時 間 が 表示 る きれ て いま す 。 


ファ イル の 呼び 出し 





ディ スク へ 保存 し た プロ グラ ム は , 必要 な 時 に プ ブログ ラム メ モリ へ 呼び 出す こと が 出来 ます 。 
プロ グラ ム を わ を プログ ラム メ モリ へ 呼び 出す に は 。 1oad コ マン ド を 使用 し ます 。1load コ マン ド の 書式 
は 次 の 通り で す 。 





この oad さ マン ドド に 付け を ファ イル ネー ム み に も 圭 上 張 子 を 和 者 略す る こと が 出来 ます 。- 2 一 5 一 1 で 
保存 し た プロ グラ ム を 第 2 一 57 図 の 様 に , 実際 に 呼び 出し て み ま す 。 


OK 

list 

OK 

load"test" 

OK 

list 

18 int x=19,y=15,z 
20 z=x+y 


38 print "zs" 
40 end 


01 
É 


第 2 一 57 図 ファ イル の 呼び 出し 





ご 覧 の よう に , new し た 後 の list で も プロ グラ ム メ モリ 内 に は も う プ ログ ラム が 残っ て いな い 事 
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merunununununwnunwnunwnununvnwnununununununvnvnvnvnvnynvnvnvnvmvmvmvNvnvmvnvnvnvnvnvnynumynunununununn 2-5 2 アイ ル の 管理 (Run, 


OWES. CDT, 1oad コ マン ド を 実行 し list L て みる と 。 今度 は ゲロ グ ラム が あり ます .。 
TOC, 1oad コ マン ド 実 行 前 に new を し て いま す が . 実際 に は load コ マン ド を 実行 する と プロ 
久 フ ム メ モリ 内 は 一 度 消去 る され ます の で 必要 な い の で す が , 逆 に 消し た く な い プ ブロ グラ ム も 消 ぇ 
還 ま いま すか ら 気 を 付け て 下 き い 。 


es) | 呼び 出し 後 の 自動 実生 


X BASIC の コマ ンド の 中 に は 。 プロ グラ ム を 呼び 出し た 直後 に 実行 する こと が 出来 る $ の が 
あり ます 。 こ れ ま で も 何 度 と な く 出 て きま し た が 。run と いう コマ ンド が それ で す 。 使 用 方 法 は 。1oad 
デマンド と 全く 同じ で す 。 実際 に は , 先程 の load を run に 置き 代え た も の を 実行 し て みて 下 き い 。 





run "test" 





° e Pas 
ブフ ログ ラム の 結合 
$5 2 رہ0 ا‎ = — ⁄ FMD 12۳۳-3 まし た が , load@, save@ と いう ユ コーン トド を 和合 直し て 
クラ ム の 結合 を し ます 。 こ こ で は , 第 2 一 58 図 の アロ グラ ム ( 二 つ ) を 結合 する 手順 を 解説 し ます 。 


ログ ラム 








I8 print وہ ا ہو‎ 
SU print "exor 
30 end 








Co dr die d LR. 







18 print ۳ص‎ 
20 print "is NO. 1" 
30 end 







第 2 一 58 図 2 本 の サン プル プロ グラ ム 
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X-BASIC の 基礎 TEE E O E Ra‏ 4225 مہ 


手順 





0) ログ ラバ まま を キー ボー ド か ら 6 打ち 込む 。 

2) この ブログ ラム を save コ マン ド て 保存 する 。 

(3) new コ マン ド で ブロ グラ ム 1 を 消去 する 。 

Wi ブロ グ 少 2 ク を キー ポー ド の みち 打 ぢ 込む 。 

(5) この プ ブログ ラム を sava@ コ マン ド で 保存 する 。 

(6) 1oad コ マン ド で , “test 1 ” を 呼び 出す 。 

(7) 続い て この まま の 状態 で 1oad@ コ マン ド を 次 の 書式 で 結合 し ます 。 


load@ ”testl” ,40,10 
(8 この 状態 で list し て 第 2 一 59 図 の よう に な っ た か 確認 し ます 。 


list 

I8 print et 
e E i E me 
30 end 

40 print. ” X68000” 
SP print "is NO 1” 
60 end 

OK 

š 





第 2 一 59 図 2 本 の プロ グラ ム が 1 本 に 


ご 覧 の 様 に , test 1 ,test 2 と が 結合 され て いま す 。 プ ログ ラム が 結合 し た 後 の 内 容 と し て は , 30 
行 目 の end は 必要 な い の で delete ま た は 1 行 削 除 の 方 法 で 削除 する 必要 が あり ます 。 ま た, この よ 
う に 結合 し た プロ グラ ム を 保存 する の を 忘れ な い 様 に し て 下さ い 。 

ŠT, save@ コ マン ド と load@ コ マン ド の 書式 で す が , save@ に つい て は , save コ マン ド t £ 
く 同じ で す が , 1oad@ コ マン ド は 少々 違い ます 。 





先程 の 例 で は , test 2 を 40 行 目 か ら 結合 し , 10 行 間隔 で 結合 し た こと に な り ま す 。 
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Ex ーーーーーーーーーー 
— بب‎ 


Ne ENEE T. RE ご = NM بی‎ 


Dee 
تب‎ DEVIS بر‎ 


d らら Des - ~ 
رر رر یٹپ‎ x E 


رک وو رت 


کی 


ーー r < ご 
v. TUS SESS 


VOTO EE, AN کے ہر‎ 


M CE の 
に た だそ ここ ここ A ہے‎ 5 Ce s NW MM 32 * VV. رر‎ 


V. DU. 


に た ここ ここ まこ エエ s‏ وپ 
x v. VV‏ سور ہا | سب ا رس تس یب 
ーー Tcl IS E‏ بب DT. CM.‏ 


g - Do ei a 
نر ور یف‎ ^. MV. 


d V US T ere, reta dei 
ر ج‎ ONE 5 w kk NN 


MN‏ رو و ودب 
ا ای ای T M we‏ 


یب تپ s. Së DM.‏ < سم 


Te II I, EET, S Do = o 


= QS. <s Dee 
UT TT CES VU. STETIT : 


o, Wee‏ ر 
に ここ ここ ここ ここ evi に‏ 


ご 7 = سے‎ Gei T eM 
راپ رد ون‎ s EC 





7 ای ۷ی ا ای ۷ی ا ای ای ا P P‏ ۹ یر ا ای ۴۷ ا M Pd RM Pd‏ ا ای PM RP P P‏ ایی ایا PM PO‏ ای ا رای ای لیا P POM PO‏ ایز ای ایر ای زی ا ایر RM‏ ایی ایر ا یو ای RI‏ ایر یا ایی وہہ ری HAMA! as 3 T 標準 関 žir 2 外部 関数‏ 





X-BASIC に は , X-BASIC 本 体 に 内 蔵 さ れ た 関数 が 何 グ ルー プ か あり ます 。 こ れ ら の 関数 は , 
パー ソナ ルコ ンピュータ に と っ て 基本 と な る ファ イル の 入出 力 に 関す る も の と か , 数 値 や 文字 の 
処理 と か, デー タ の 変換 と か いう も の で , 何 の 定義 も な し に いつ で も 使用 する こと が 出来 ます 。 
この 関数 群 の こと を 標準 関数 と いい , 第 3 一 1 図 の 様 に 分 類 き され ます 。 


( 1 ) ファ イル 入出 力 関数 
( 2 ) デ ー タ 変換 関数 


( ) 文 字 列 処理 関数 
( 4 ) 数 値 演算 関数 





第 3 一 1 図 標準 関数 


これ ら 6 の 関数 群 の 内 容 は , 色々 に 分 類する こと が 出来 ます 。 従っ て , ここ か ら の 説明 は 単なる 
機能 どけ で な く 引 数 や 戻り 値 の 分 類 等 に よっ て も 説明 を 分 け て いき ます 。 


ファ イル 入出 力 関数 


三 般 に ファ イル と いう と 。 マ イコ ロン パッ コン を 少し 知っ て いる 方 な 6 内 老 は カセ ッ タテ ー ブ 
レコ ュ コー ダ や フロ ッ ピ ー デ ィ ス ク を 思い 浮か さま す 。 も ちろ ん 外部 記憶 装置 と し て の それ は , ED 
中 で は よく 知ら れ て いま す が , Human68k に お いて は 色々 な デバ イス を サポ ボー ト し て いま す ( 第 
3 SES, 





@ コンソ ー ル (キー ボー ド と ディ イス プン レイ ) 
e RS-232C (シリ アル イン ター フェ ー ス )/) 
e> XZ 


@ 776 > —>" 4 KD 
@ ハ ー ド ディ スク 
e ADPCM 
第 3 一 2 Human58k で サポ ー ト し て いる 各種 デバ イス 
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Pi RR PA لیا‎ PA ایا‎ PPM NF ۴۹ ایا‎ PA ای‎ ۹١ ایز( ایز‎ PU ای ۴۹ ای ۴۹ ای‎ ۴٣ ای‎ PE ای‎ PA ا‎ PA ایز‎ PA ای‎ PA بیز‎ PA ایز‎ PA ایز‎ PA ایز ۴۹ ایز‎ PA بیز ۴۹ ایز‎ PA ایز ۴۹ ایز‎ PA ای‎ PA b A ای‎ PA ار‎ PA ایز‎ PA ا‎ AAR ا‎ PUM A 7۹ ایز ۴۹ ایز‎ A ARA RAMA ایا ۹ ایا ۴۹ ا ۴۹ ایز ۴۴ ا ۶۹ کی ۴۹ ایز 7۹ ا ۴۹ نیز ۷ ا‎ AMAMA 3-1 標準 関数 HAMAL 


当然 の 様 に Human68k が これ ら の デバ イス を サポ ー ト し て いれ ば , X-BASIC で b 使用 可能 て 
4. EST, これ か ら 解 説 す る 関数 群 に 付い て も これ まで の 認識 は 改め て お 〈 必 要 が あり ます 。 
kee ここ て は フロ ッッ ピー ディ スク を 対象 と し た 解説 と し ます 。 

EC, この ファ イル 入出 力 関数 で す が , メデ ィ イア に 対し 1 バイト ずつ (1 文字 ずつ ) の 操作 を 
才 る も の か ら 1 行 単位 の 操作 まで 色々 な 形態 を 持っ て いま す 。 こ こ で は , これ ら に つい て サン プ 
交 プ ログ ラム を 提示 し ます の で , 実行 結果 と 解説 を 通し て 関数 を 理解 し て 下さ い 。 


(a) ファ イル 入出 力 の 基本 【fopen, fclose, fcloseall】 


ラフ ァイル 入出 力 の 基本 は , 何と し いっ て も この fopen と fclose で す 。 関 数 名 か ら 6 でも 想像 出来 る の 
C325, ファ イル を 開き ファ イル を 閉じ る 関数 で す 。 フ ァイル と いう の は , 普段 は シッ カリ Lg 
が 掛け られ て いて , 中 身 を 見 る こと も 取り 出す こと も 入れ る こと も 出来 な い 箱 の よう な 物 で す 。 
Kec, この 箱 に デー タ を 入れ よう と し た り , 箱 か が ら デ ー タ を 取り 出 そ う と し だ りす る に は , i 
す 最 初 に 箱 を 開け な けれ ば な り ま せん 。 こ れ が fopen で す 。 ま た だ , この fopen に は 全く デー タ の な 
い 箱 を 注文 する 役目 も あり , 今 まで 使用 し て いな か っ た 新しい 箱 を 作り 出す こと が 出来 ます 。 

これ と 反対 に , 色々 な 操作 (デー タ の 読み 込み , 書き込み) が 終わ っ た 箱 を も と 通り ひっ くり 
返し て も 大 丈夫 な よう に , ふた を し て 鍵 を 掛け な けれ ば な り ま せん 。 これ が , fclose で す 
جک‎ 70700 この 箱 に 付い て いる 名 前 記 ファ イル ネー ム で す 。 


° 言い Se 


【FOPEN】 


fp—fopen (fn, md) 


str fn, md 

fn は ファ イル ネー ム で , md は open する と き の モ ー ド を 指定 し ます 。 fn で は , 直 
接 ” GIRI) で 囲ん だ ファ イル ネー ム か ,。 str 型 変数 に 代入 きれ だ ファ イル ネー 
Ab, どちら か に より 指定 され ます 。 


md i£, "rs "wi "pw"! OORT EDT, 次 ヴ よ うな 意味 を 持っ て TE 
婚 に ファ イル が あっ て , その ファ イル を 読み 出し 専用 し し て open する 


場合 。 
既に ファ イル が あっ て , その ファ イル を 書き 込み 専用 た し て open す る 
場合 
… 既 に ファ イル が あっ て , その ファ イル を 読み 書き 両用 に 使用 する 場合 。 
既に ファ イル が あっ て も , 新規 ファ イル と し て 読み 書き 両用 に open + 


る 場合 。 こ の 場合 , 既に あっ た 貴重 な デー タ は 消 を えて し まう の で 注意 し 
て open し て 〈《 だ さい 。 
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fp は , open に より 使用 可能 に な っ た だ ファ イル の 番号 が 入り ます 。 この 番号 は , 8 


で 重要 な 役割 を し ます か らき ちん と 戻り 値 と し て 変数 に 代入 し て お いて 下る い 。 






















Íc—fclose (fp) 





int fp 
この fp は , open し た 時 の ファ イル 番号 で どの ファ イル を close する か の 指定 に 
な り ま す 。 X-BASIC で は , open に より 15 個 まで の ファ イル を 同時 に 開く こと が 
出来 ます 。 この 中 で ,。 もう 用 の すん だ ファ イル は close し ます が , どの ファ イル 番 
号 か を 指定 し な けれ ば な り ま せん 。 





ipt Ze 
これ は 。 正常 に ク ァ イ ル を close 出来 た か が どう か を 戻り 値 と し て 返し ます 。 正 常 な 
場合 は 0, 異常 (エラ ー) の 場合 は 1 が 返り ます 。 





[FCLOSEALL] 


fc—fcloseall( ) 


int fc 
これ は , 先程 の fclose と 同様 に ファ イル を 閉じ る 関数 で す が , 引数 が な く 現 在 
open され て いる ファ イル 全て が close され ます 。 Bš b (ë fc に 付い て は fclose と 
同じ で す 。 





ファ イル 管理 に な いて ,。 この 二 つ (fopen と fclose, fcloseall) は 重要 で すか ら , 早い うち に 理 
解 し て 下さ い 。 な お , fopen, fclose に 付い て の 使用 例 は , 次 に 説明 する 入出 力 関係 の 部 分 を 参考 
に て 下る まる 


(b) 1 バイト 単 位 の 入出 力 【fputc, fgetc】 


この fputt,fseete は,。 す バイト ず つの デー タ を 取り 扱う 関数 て す 。 ユ バイ オト デー スタ 義貞 0 の 8 
半角 の アル ファ ベッ ト や 片仮名 等 の char 型 の デー ター つ で 表す こと の 出来 る デー タ の こと て す 。 
1 バイ ト ず つ 書 き 込 み を する の が fputc C, モバ イト ずつ 読み 込む の が fgetc で す 。 
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1١58۴ ۴ 第 3 = 標準 関数 と 外部 関数 از ۴۹ ای ۹اا ۴۹ بیز ایا ۹ ای ۹ ایا ۴۹ ای ۹ ایا ۹ کیا ۹ انا ۹ اط‎ ۹ RM ایز‎ PPP P PM PM PM Pd Pd Pd ۹ ای ۴۹ بی‎ P PO PU Pd PU ۹ ای ۷ا ۷ ایز ۷یز‎ PO ۳۴۹ RM RV RV ۴[ ای [۴ ای ۴۹ ایز‎ PORE RU PUE ای ۴۹ ای ا‎ ۹ PE ۷ ای‎ 


あり ます が , これ は , で 囲ま れ た 文字 の コー ド を 意味 し て いま す (1 文字 だ け の 時 に 有効 ) 。 
それでは, 今 書 き 込 ん だ ファ イル を 読み 込ん で み ま し ょ う 。 第 3 一 4 図 は , 今 書き 込ん だ ファ 
イル を str 型 の 変数 に 代入 し て 表示 する プロ グラ ム で す 。 






sir fn= samplel dal” 







str s 
dim char x(6) 
SEL TEE ISI 
fp-fopen(fn, "r") 
i=0 to P 
t=fgetc (fp) 
x(i)=t 









for 








next 
100 fs=fclose(fp) 
110 for i=ð to 6 
120 s-stchr$(x(i)) 
130 
140 
150 
run 
X58000 
Dk 
E 











next 










print s 









end 









第 3 一 4 図 書き 込ん だ ファ イル を 表示 させ る (fgtc サン プル プロ グラ ム ) 


この ょ うに , 先程 の デー タ が 取り 出せ た 訳 で す 。 こ の プロ グラ ム の 中 で , chr$( ) と いう も 
の が あり ます が , これ は 後述 する デー タ 変 換 関数 で ,「char 型 の デー タ を str 型 の デー タ に 変換 す 
る 関数 」 で す 。 こ の プロ グラ ム で 注意 し な けれ ば な ら 6 な い の は , 第 3 一 3 図 で は open の 時 に ”c” 
て あっ だ た も の を , 第 3 一 4 図 で は "Tr" と な っ て いる こと で す 。 こ れ は , 既に ある ファ イル を 読み 出 
し 専用 に open し た た だ めで, この よう に 使用 目的 に より モー ド を 使い 分 ける こと が 必要 で す 。 こ の 
ブロ グラ ム の 80 行 で 少々 無理 の ある こと を し て いま す が , この 代入 の こと を 型 変換 し いい ます 。 
MERI, 数 値 型 の 変数 や 値 を 互い に 自由 に 代入 する こと が 出来 ます が , オー バー フロ ー を 起こ 
す と エラ ー に な り ま す の で 気 を 付け て 下 き い 。 
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GREEN 3- 1 標準 関 数 IMRMRI 


(c) 配列 の 入出 力 [fwrite, fread] 


LE CLT SAH, و رہد شا رد سے‎ Esa 
PORI REORDER NS も の で す 。 従 っ て 章 き 込む デー タ が char 型 だ し 1 パイ ト ず つっ 
int 型 で あれ ば 4 バイ F ずつ, float 型 で あれ ば 8 バイ ト ずつ , 一 度 に 書き 込ま れ て いき AEG oe d 
イイ ア の 申 へ 入っ て し まえ ば 1 バイト ず つの デー タ で すか ら , 取り 出す 時 に 他 の 型 へ 取り 込む 
SAIT きよ ます 。 


【FWRITE】 








| 書 SE fb=fwrite (na, n, fp) 






数 値 型 1 次 元 配 列 na 
“OSR, ファ イル へ これ か ら 書 き 込 も うと する デー タ を 格納 し て お く 配 列 で 
前 述 の よう に 型 に より 書き 込ま れる バイ ト 数 が 変化 し ます 。 

int n, fp 

- の 引数 は, 書き 込 サ デー タ の 個数 (カウ ント 数 ) を 指定 する も ので. 13» 
ント は デー タ の 型 に より 座 化し ます 。char 型 の 場合 1 バイト ずつ , in 型 の 場合 4 
バイ ト ずつ , float 型 の 場合 8 バイ PT TTA EE ECHT ます ょ 名 は に さ tup: 
草 き 込 も うと する ファ イル 番号 で , fopen の 時 の 戻り 値 で す 。 








"THE, Term を 使用 や た サン ダル デジ ラム を 実行 し で あま すこ の 第 下す 千 8 
グロ グラ ム は ほ , 第 3 一 3 図 の プロ グラ ム と ょ と 同様 に , "X68000" E (5 デー タダ を "sample2 da L Ls 
2 フフ ァイル に 書き 込み ます 。 






10 str fnz"sample2.dat" 
20 dim char IO 8' "Ww EAC 
JU THE fp, fb, fs ne? 

40 fp=fopen(fn,”c”) 

58 fb=fwrite(x,n,fp) 

RF nt EGTRRA KS 

70 fs=fclose(fp) 

80 end 












run 


UE 
0 
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نی ۴اا ۹۷ ایا (۴ ای ۷ زی ۷ از ۷ از ۹ ای ۴۷ ای ۴۷ ایا ۷ ایز ۷ ای ۴۹ ای ۷ ای ۴١‏ یز ۴(۹ ای (۴ ار ۷ زی ۹ Ru Ru RRB‏ ۹نیا ایا ۹ RM‏ بی ۴۹ ای ۴۹ لی ۴۷ نی ۹ رز ۹ RM‏ لیا ١‏ ا ۷ ایا ۹ ایز ۴ بی ۹ ای ۷ از ۷ ایا ۹ کیا ۴۹ ایا ۹ ایا ۴۹ ایا ۹ لیا ۹ ایا ۹ ایا ۹یا ۹ ا {AMAR a 3 T 標準 関数 と 外部 関数‏ 


第 3 一 5 fwrite サン プル プロ グラ ム 


この プロ グラ ム の 場合 , 第 3 一 3 図 と 同じ 動作 に する た め char 型 の 配列 を 使用 し まし た が , 使 
用 目的 に より 数 値 型 の 別 の 配列 に する こと も で きま す 。 こ の プロ グラ ム に 付い て も , files コマ ン 
ド に より 出来 上 が っ た ファ イル を 確認 す る こと が 出来 ます 。 

る て, 出来 上 が っ た ファ イル を 第 3 一 4 図 の 様 に 読み 出す プア ログ ラム を 作っ て み ま す 。 今度 は , 
fwrite と ペア に な る fread 関数 を 使い ます 。 | 


fv—fread (na, n, fp) 


数 値 型 1 次元 配列 na 

fwrite 同様 , 数 値 型 1 次 元 配 列 で す が こ れ は 今 ま で の 関数 と は 少し 違っ て いて , 
引数 と し て 渡し た na に デー タ が 入っ て きま す 。 

Lët, fp 

これ も fwrite 同様 読み 込む セ ゲ デー タ の カウ ント 数 n と, ファ イル 番号 fB です 。 


【FREAD】 









int fv 
fv に は 実際 に 読み 込ん だ カウ ント 数 が 返り ます 。 従って, char 型 の 場合 1 バイ 
ト , int 型 の 場合 4 バイ ト , float 型 の 場合 8 バイト で 1 カウ ント と な り ま す 。 






この 関数 を 使っ て , 第 3 一 4 図 同様 , 第 3 一 5 図 で 作っ た "sample2. dat" の 内 容 を 読み 込ん で 
み ま す (第 3 一 5 図 )。 


str s,fn="sample2.dat“ 


も Isofu,.tfs.i,.nsi 
dim char x(6) 
fpsfopenifn. "e? 


fvzfread(x.n, fp) 

for PSG to 6 
S=S+chr$(xt(i) ) 

next 

print fv. East H" 


print s 
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IRR ۴۹ ایا ۴۹ ای‎ PA ای‎ PA بیز‎ PA کیا‎ PA ا ۴۹ ایز ۴۹ ای ۴۹ ایز ۴۹ ایا ۴۹ ایز ۴۹ ای ۴۹ ایز ۴۹۹ ایا‎ PU ایز ۴۲ ایز ۴۹ اذ ۴۹ ایز ۴۹ ار ۴۹ ایز‎ PA ایز ۴۹ رز ۴۹ ایز‎ PA ای‎ PA ای‎ PA ای ۴۹ ای ۴۹ ایز ۹ ایا ۶۹ بیز ۶۹ ٹیر ۴۹ ای ۴۹ ایز ۴۹ ای‎ PA ار ۴۹ ای ۴۹ ای ۴۹ ای ۴۹ ای ۴۹ ایز ۴۹ ایا ۶۹ ای‎ PA ای 7۹ ا‎ PA ای‎ PA کی ۶۹ ایز ۴ ای‎ PA bd ۳۹ ای 5 ای‎ A ای ۴۹ ای ۹ یز‎ FA ار ۴ رز ۹۹ ای ۶۹ ایز ۴۹ ایز ۴۹ ای‎ A ا 8 ایز 75 ای‎ MR 3 SCH 1 Lei iE pg Zk IMRMRI 


1180 fs=fclose(fp) 
120 end 


run 


7 バイ ト 


X58000 
Ok 





第 3 一 6 fread サ ンプ ルプ ログ ラム 


(d) 文字 列 の 入出 力 【fwrites, freads】 


ここ て 説明 する fwrites, freads と いう ファ イル 入出 力 関数 は , 今 ま で 説明 し て きた ファ イル 
入出 力 関数 (fputc。fgetc。 fwrite, fread) を 基本 も し し て これ ら の 機能 の 拡張 を 
し だ 関数 と いえ ます 。 str 型 の デー タ は 0 か ら 255 ま で の 文字 コー ド の 並び で すか ら , char 型 の 配 
列 と し て 扱う こと が 出来 ます 。char 型 の 配列 で あれ ば , 前 述 の 配列 の ファ イル 入出 力 関数 の 
Pwrite, tead が 合え ます 。 S00, もう 一 つる か の ぼっ て み ま す 。 RIOTZA nak I 
i£, char, int, float の それ ぞ れ の 型 に より 扱わ れる バイ ト 数 が 異な り ま す 。 しかし, 1,。.4, 8 
バイ ト ず つの 操作 で あれ ば , 全て char 型 の デー タ と し て 処理 が 出来 ます 。 と な れ ば , fputc, 
fgetc に 依っ て デー タ の 入出 力 が 出来 ます 。 

この よう に fwrites, freads, は 基本 的 に は fputc, fgetc の 拡張 関数 に な る わけ で 
す が , 扱う str 型 の デー タ は 不定 長 で す 。 と いう の は , 変数 の と ころ で も 説明 し まし た が , str 型 
の デー タ は 合 言 す る 時 に 文字 列 の 最大 長き を 設定 する こと で , 0 か ら 6255 文 字 ま で の 範囲 が あり ま 
す 。 を のだめ, この 関数 を 使用 する 時 に は これ まで に な か っ た 制限 が 付き ます 。 こ の 関数 で は 。 
文字 列 一 つ を 1 行 と し て 扱い ます 。 従って, 文字 列 の 最後 に は 1 行 の 終了 を 示す コード (改行 コ 
ー ド ) を 入れ な けれ ば な り ま せん 。 改行 コー ド は 文字 コー ド の 13 と 10 で , 16 進 表現 で . & HOD Lë 
HOA Ç+. 


[FWRITES] 


V 


fb—fwrites (st, fp) 


str st 
この 引数 は , これ か ら フ ァイル へ 書き 込 も うと する デー タ ( 文 字 列 ) を 入れ て ある 


b の 。 文字 列 の 変数 また は 文字 列 。 

int fp 

この 引数 は , 今 書き 込 も うと し て いる ファ イル の 番号 を 示す も ので, fopen の 時 に 
戻り 値 と し て 返っ て きだ も の 。 
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از ایر بی ای ای بی را ری RR PUERO PCR PR PL RUP‏ ای ای ای ای( ای لی ینغ یر زیر زی زی ۴ یا لیا لی ای ای ا نی لی لی ان نی نی ا imumum 第 3 IT 標準 関数 と 外部 関数 MRM‏ 


int fp 


戻り 値 に は , この 関数 に より 書き 込ま れ た デー タ (文字 ) の 数 が 返り ます 。 





で は , 実際 に fwrites 関数 を 使っ て いく つか の 文字 列 を ファ イル へ 書き 込ん で み ま す 。 こ の 第 
3 一 7 図 の ブログ ラム で は , 四 つ の str 型 の 変数 を 用 意 し ます 。 三 つ は それ ぞ れ x, y, Zz で X- 
BASIC, X68000, GOOD と いう 文字 列 が 初期 化 き れ て いま す 。 


IU str crlf:crlf=chr$(13)+chr$(19) 
20 str x="X-BASIC",y="X68099".z="GO0D" 
SOT LRT fp,fb.,fs.n 

40 fp-fopen("sample4.dat", "c") 

50 fb-fwrites(x*crlf.fp) 

60 n=fb 

70 fb=fwrites(y+crlf.fp) 

80 n=n+fb 

90 fh=fwrites(z+crlf.fpb) 
199 n-n*fb 
ولا و وی ا‎ EE HU 
120 fs-fclose(fp) 
130 end 
run 
23 バ イト 
0k 
E 


第 3 一 7 fwrites サン プル プロ グラ ム 

この ブロ グラ ム の 場合 , 直接 扱っ て いる 文字 数 は X, Y, Z の 変数 に 入っ て いる 文字 列 で , 4 
計 す る と 17 バ イト で す 。 し か し fwrites を 実行 する 時 に , それ ぞ れ の 文字 列 に crlf と いう 文字 列 を 
付加 し て いま す 。 こ の crlf が 先 に 説明 し た 改行 コー ド で す 。 こ の 改行 コー ド は 文字 数 と し て 数 ぇ 
られ ます が , 文字 列 の 終わ り を 示す null コー ド は 数 えま せん 。 


[FREADS] 


fb-—freads (st, fp) 
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1 P Pd FO PRO RUP PU PUR POP POOR Rd PU ۹۴ )یز ۹۷ ای 7 ایز‎ RO RUP PU RM ۹۹ POOR PURO PU PU ۹ ایا‎ ۹٣ ای ۹۹ ای ۴۹ ایز ۴۹ ا‎ RUOLO ROLE ۴۷ ایا‎ ۴۹ RO ۴١ ا 7 نی‎ ۴١ ای‎ ۴۹ RU ۴۹ ا‎ ۴١ بی [۹ لی ۴۹ ایز ۴۹ نی ۹۷ نی ۴۹ ایز‎ PUE PULO ۹۱ نی [ ا‎ ۴ NAMA 3- 1 Le? HÉ 関 数 HAMAL 





S St 
この 引数 は 特殊 な も る ので, これ か ら 読 み 出す デー タ が 格納 され て きま す 。 従 っ Lë 
以前 入っ て いた デー タ は 失わ れ ま すか ら 注 意 が 必要 で す 。 

int fp 

この 引数 は fwrites の も の と 同じ で す 。 













この 関数 を 使用 し て , 前 に 作成 し た ファ イル の 中 か ら 第 3 一 8 図 の 様 に デー タ を 読み 出し て み 
ます 。 第 3 一 7 図 で は , 23 バ イト だ っ た 書き 込み 文字 数 は 17 バ イト に な っ て いま す 。 


E vit X yy, z 
BU int fp,fb.fs.n 
30 fp-fopen("sample4.dat". r”) 
40 fb=freads(x,fp) 
58 print fb 
60 fb=freadsty,fp) 
79 print fb 
80 fb=freads(z.fb) 
90 print fb 
ERE print x,y,2 
118 fs-fclose(fp) 
128 end 
run 
7 
6 
4 
X-BASIC X68000 G00D 
Ok 
ZS 


253—989 freads サ ンプ ルプ ログ ラム 


ご 覧 の よう に , 先程 書き 込ん だ デー タ が それ ぞ れ の 変数 に 読み 込ま れ て きま し た 。 行 の 終わ り 
を 示す 改行 コー ド を 入れ る まで は 1 行 と し て 取り 扱わ れ ま す が , デー タ が 文字 で 長き が 不定 の 場 
合 に は 非常 に 有効 な 関数 で ある こと が 理解 し て も ら え た と 思い ます 。 
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1۴5 ۷ n 第 3 = 標準 関数 と 外部 関数 We EENS 


(e) その 他 の ファ イル 入出 力 関数 【fseek, feof, dskf] 


これ ら の 関数 は , ファ イル に 対し て これ か ら 読 み 書 きす る デー タ の 位置 を 知ら せ た だ た り , 記憶 装 
還 と も し て 。 プ ロッ セー ディ スク を 重用 し た 場合 の フロ ッ ピ ゼー の 空き 傘 千 を 示 お も が か ゅ テル ル の 
終了 情報 を 返し た りす る ファ イル 入出 力 関数 と し て は 、 補 助 的 な も の で す 。 


【FSEEK】 


dp=fseek (fp, os, md) 


int fp, os, md 
この 引数 は ファ イル の 指定 を する fp, ファ イル の シー ク す る 基準 位置 の 指定 を す 
る md, 基準 位置 か の ら の オフ モッ ト を 指定 する os で す 。 
オフ セッ ト の バイ ト 数 。 
esa e emt WO رت‎ TE ہہ بل بای و‎ T5 
20:4 = 0 ファ イル の 初め か ら 
| md-l 現在 の デー タ ポ イン タ か ら 
| 1790-9 ファ イル の 終わ りか ら 


| | int dp 

| この 戻り 値 に は , fseek 関数 実行 後 の ゲ ー タ ポイ ンタ の 位置 が 返り ます 。 こ の 関数 
| C, 無効 な 引数 (md で ファ イル の 終わ り を 指定 し た に も か か わら ず , オフ セッ ト 
を プラ ス 側 へ 掛け た な ど ) の 場合 に は , エラ ー と な り 一 1 が 返り ます 。 





| この fseek は , 関数 の 書式 , 引数 , 戻り 値 の 説明 どけ で は 説明 し きれ な い 機 能 や 使い 方 が あり ま 
| す 。 サ ンプ ルプ ログ ラム を 関数 の 機能 を 理解 出来 る よう に 細か くし て 解説 し て いき ます 。 — 
| まず , 引数 か ら 解 説 し ます 。 fp の ファ イル 番号 に 付い て は , 他 の 関数 と 同じ で す 。 md と os に 
| ょ りこ の 関数 は 決定 され る と 言っ て も よい ほど で , 重要 な ポイ ント に な り ま す 。 次 に あげ る 第 3 - 
9 図 は fputc の と ころ で 作成 し た sample1. dat と いう ファ イル の 中 身 で す 。 


NULL ュー ド 





第 3 一 9 sample) .dat の ファ イル の 内 容 








۴ ایز ۴۹ ایا ۴۹ یا ۴۹ ایا ۹ اذ ۹ لیا ۹ کیا‎ ۴٣ ایا ۴۹ ایا‎ PPP ۴۹ ایا ۴۹ ای‎ PPP P PPM ۴۹ ای ۴۹ ای‎ ۹( Pd Pu PU ۴۹ ایز‎ Pd PO ۹ ایز ۴۹ ای‎ P Pad Pd PU PU Pd PU Pd PU Pd PURO PORUM PU RO ۳۹ ایا ۴۹ ایا‎ RO ۹۷ ایز [۴ ای (۴ ار ۴۷ ایز‎ RO POOL ۷ ار ۴ ای‎ RM ۴۷ ایا ۴۹ کیا‎ L| 3-1 標準 関数 HAMAN 


この 中 に ,SOF と EOF と いう も の が あり ます が , こ れ は ファ イル の 始め と 終わ り を 意味 し て い 
ます 。 X68000 と いう 文字 は , fputc で は 文字 で は な く 文 字 コ ユー ド と し て 書き 込み まし た 。 この 状態 
C, samplel. dat いう ファ イル を open する L, データ ポ イン タ は 0 の 位置 に あり ます 。 従っ て 
fgetc で 実行 し だ 第 3 一 4 図 の プロ グラ ム で X68000 ほ と いう デー タ が 読み 込め た わ DA is coh 
ہا‎ ブロ グラ ム 作 成 時 に , ファ イル の 途中 か ら 読み 書き を し た いな ど と いう 要求 は 良く ある こと 
て す 。 こ の よう な 場合 に , fseek が 使わ れ ま す 。 

で は , 実際 に X68000 の 68000 だ け を 取り 出し て みる こと に し ます 。 理屈 と て は 3 | デー ロタ ポイ 
ンタ を X680000 6 の 所 へ 持っ て いけ ば よい わけ で すか ら , fseek の 引数 に , md= 0 (ファ イル の 
始め か がら) os 三 ] (デー タ ポ イン タ を 一 つ 進め た 位置 ) と 指定 すれ ば よい で す 。 実際 に 第 3 一 10 
図 で 確認 し て 下さ い 。 





19 str fn="samplel.dat",s 
20 d 
BU سو چو کر و ور ھی رد‎ 

iH fp#fópen(Tny r > 
58 dp=fseek (fp, 1.0) 
60 ۲28 to 5 
70 t=fgetc(fp) 
80 d=t 
90 S=S+chr$(d) 
100 
110 fclose(fp) 
128 print fs,s 
1308 
run 
1 
Ok 









char 











Tor 


















next 












end 












第 3 一 10 図 fseek サン プル プロ グラ ム 


ご 覧 の 通り , fseek に より デー タ ポ イン タ が 一 つ 進 ん だ こと が 確認 出来 , 読み 出し た 文字 列 も 
68000 と な り ま す 。 fseek の 引数 の os の 補足 で す が , バイ ト 単 位 ど で ある こと か ら , fwrite や fread 
の 時 は 使用 し て いる 数 値 型 配列 の 型 に より 若干 手 も 加 えて や ら な けれ ば な り ま せん 。fputc, fgetc 
て は 扱う デー タ が 1 バイ ト 単 位 な の で , オフ モッ ト も その まま の 数 値 で し た が , int 型 , float HD 
デー タ を 扱う 場合 に は それ ぞ れ 4 倍 , 8 倍 の 数 値 を 使用 し な けれ ば な り ま せん 。 
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ای 5 اا افا یا ۹ DND Ru Ru‏ ۹ لیا RM‏ ای اوا Pd Pd PUd RM RM Pd RH DND ND Pd PU POOR Rd‏ یا d P Rd PU POR Nd Pd Pd POR RR ۹ Pd RM RM Pd Pd RI‏ ۴۷ زی ہی ہر ہم یی 第 3 = 標準 関数 と 外部 関数‏ ایا لی[ نیل 


を れ で は 、 も う 少 し fseek を 使っ て 色々 な こと を 実行 きせ て み ま す 。 次 に あげ る 第 3 一 12 図 は , 
最初 に あら か じ め 30 個 の "*” (アス タリ スク ) を 書き 込ん で ある ファ イル (Sample4. dat) に 任 
意 の 位置 に キー ボー ド か ら 入 力 し た 文字 を 書き 込む も の で す 。 ま ず 最 初 に sample4. dat を 用 意 し 
な けれ ば な ら な い の で , 第 3 一 11 図 を 入力 , 実行 し て 下さ い 。 次 に , 第 3 一 12 図 を 入力 し て 下さ い 。 


ind fp 


Gtr Sp=- یدع ید ماد ید‎ AAA 


fp=fopen(”sample4.dat", c ) 
fwrites(sp+chr$(13)+chr$(19),fp) 
close(fp) 


end 





第 3 一 11 図 sample4 dat の ファ イル を 作る 















int fp,p:str st,k 

28 fp-fopen("sample4.dat". "rw"? 
30 repeat 

40 input "position(0-29):",p 

50 input "character: E 

60 print 

70 dp-fseek(fp.p.0) 

80 fs-fputc(asc(k). fp) 

90 until kz"*" 

100 fseek(fp, 9,9) 

110 freads(st, fp) 

129 print st 

130 fclose(fp) 

149 end 













第 3 一 12 図 fseek サン プル プロ グラ ム 


- の プロ グラ ム を 実行 す る と, まず デー タ ポ イン タ を 聞い て きま すか ら , 0 か ら 29 ま で の 数 値 
を 入力 し て 下 き い 。 KU, 書き 込み た い 文 字 (キー か ら 入 力 出来 る も の ) 1 文字 入力 し て リタ ー 
ン キ ー を 押す と , 次 の ポジ ショ ン を 聞い て きま す 。 こ れ を 続け て いっ て , 入力 し た だい 文字 の と こ 








mnrnvnunvnvnunvnunnvnunvnvrunvnununvnunvnununvnununvnunvnununvnunumvnununvnunvmumumvnunynvmuhnvnunumvnununununun 3- t p HE 関 数 MRMRI 


の に * を 入力 する と 30 個 の "*”" に 先程 指定 し た 位置 に 入力 され た 文字 が 入っ て いる 文字 列 が 表 
が され ます 。 も ちろ ん ファ イル の 中 が その よう に 変更 きれ て いる の で す 。 こ の プロ グラ ム で 中 心 
と な る の は , 70 行 の fseek と 100 行 の fseek C+. 70 行 の fseek で は 書き 込み た い 位 置 へ ダー タ ポ 
イン タ を 移動 し て , 100 行 の fseek で は ファ イル の 中 身 全部 を 読み 出す こと か ら 6。 フ ァイル の デー 
タ ボ ポイ ンタ を ファ イル の 先頭 に 戻す 作業 を し て いま す 。 

この 他 に も fseek に は 変わ っ た 使い 方 が あり ま 3. し か し これ は , feof と 深い か か わり が ある 
の で 次 に まわ し ます 。 


【FEOF】 














int fp 
指定 する ファ イル 名 で , fopen の 時 に 戻り 値 と し て 返さ れ た も の 。 







int fs 
指定 きれ だ ファ イル が 終了 の 位置 に きま て いる か が 返り ます 。 も し 終了 し て いれ 
ば ー 1, まだ 終了 の 位置 で は な い 時 は 0 が 返り ます 。 






この 関数 を 使っ て , sample1. dat と いう ファ イル に 何 バ イ ト の デー タ が ある か を 調べ て み ま 
す 。sample1. dat lk, fputc の 説明 の と ころ で X68000 と いう 文字 ユー ド が 入っ て いて , ヌル ュー 
ド を 含め て 7 文字 (7 バイト ) の は ず で す 。 こ の 第 3 一 13 図 の プログ ラム は ,sample1. dat を open 
こ だ 時 に は デー タ ポ イン タ が 0 に な っ て いる こと か ら 6,。 fgetc で 1 文字 ずつ 読み 込ん で いっ て は . 
tfeof で ファ イル の 終わ りか どう か を チェ ッ ク し ます 。 






1 9 
20 fp-fopen("samplel.dat", "r") 


St fTp,fs,n.t 









30 repeat 
40 t-fgetc(fp) 
58 nzn*l 
60 until feof(fp) =-1 

T8 print "filesizos"ini"bytos" 
80 fclose(fp) 
90 end 


run 



















filesize= 7bytes 
0 
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4RMRMR ai 3 TE 標準 関数 と 外部 関数 M ۴۹ ایا‎ PU Rd PU ایا‎ Pd PU ۹9 ای‎ FA ایز ۴ لیا‎ PURO PA ایز‎ PUO PRO PU ۴ ایز ۴۹ بی ۴۹ ایز‎ PA ای ۴۷ )یز‎ POOR PRU PRU ۴۹ ای‎ ۴٦ ای ۴۹ ای‎ PO کی‎ PU PU PR POLUM PUE ۹ ای‎ ۴۹ ha PA PULLUM PA ای‎ ۴۹ PORE PA ای‎ PU ای‎ PA نر‎ PA نی(‎ PA کر‎ PA PR PA نیا‎ PA او‎ PAA 


Seeerei 
第 3 一 13 図 feof サン プル プロ グラ ム 


ここ で , 前 述 の fseek 関数 の 登場 に な り ま す 。 フ ァイル の サイ ズ を 知る だ た め に は , fseek の md 
رر کا رر ہے‎ G و‎ E aa 
在 の デー タ ポ イン タ 即 ち , ファ イル の 一 番 最後 の 位置 が 返っ て きま す 。 こ の 数 値 は この ファ イル 
の 大 きる を 意味 し て いま す 。 KEE 


18 int fp,fs,n,t 

20 fp-fopen("samplel.dat"."r") 
30 nfseek(fp, 9,2) 

40 print "filesizez":n;"bytes" 


50 fclose(fp) 
60 end 
run 
filesize- /bytes 
Dk 
5 
第 3 一 14 図 fseek で ファ イル サイ ズ を 読 


第 3 一 13 図 と 同じ 結果 が 得 ら れ ま す 。 こ の よう に feof を ファ イル サイ ズ を チェ ッ ク す る だ め に 
使う の で あれ ば , fseek の 方 が 有効 で ある と いえ ます 。 


【DSKF】 





s-skf- €1) 


int 1 
この 引数 は ,。 これ か ら 調 べた い フ ロッ ピー ディ スク を 指定 する ぉ も ぁ る ので, ドラ イブ 
の 指定 を し ます 。 ド ライ プ の 指定 は 次 の よう に な り ま ず 。 


Ü) …… カ レン ト 3 
ھ000‎ qaa 


int s 
指定 きれ だ ドラ イブ の フロ ッ ピ ー デ ィ ス ク の 空き 容量 を 返し ます 。 

















標準 関 数 MRMRI‏ 3-1 11170 4؛ )٣0ت‏ مسمسسسجسشسسجممسیمیجسمسمشمی2غ_ص<دددددددددت 


現在 ドラ イブ A に 入っ て いる ラロ ッ ピ セー の 残り 容量 が 天 示 きれ‏ سخ و رس وا 
E.‏ 


18 print dskf (1) 


20 end 





第 3 一 15 図 dskf サン プル プロ グラ ム 


ERE Ie ル 入 出力 関数 に 付い て 解説 し て きま し た が, X-BASIC を 使っ て いく うぅ うち に 
ビバ で デー タ を フロ ッ ピ ー に 甘え て お きた く な っ た り 。 これから 解 計 し て いく 外部 関数 秋 で 作っ 
イネ ンー رہ ہر ےش سس و نے ےچ مہ مھ ا ا‎ 
یہس وہہ‎ RIL SL شر‎ EE RENE رر‎ s 
SAM تب‎ + A L رر مجر‎ EE TEE せ だ りす る 凶器 に も な りか ね ませ ん 。 


デー ツタ の 変換 関数 


X-BASIC に は , char ¥, int X!, float #ü, str MOTZ—27:E, 用 途 に 応じ た 形 の デー タ が あ 
り 9 ます が , ブログ ラム を 作っ て いく うち に は 必ず と いっ て よい は ほど , それ ら を 変換 し て 違う 形 の 
メー タタ に し た いと いう こと が 起き て きま す 。 例え ば 10 進 法 を 16 進 法 に し た いと か , 数 値 の ダー 
タ を 文字 列 に し た いと か で す 。 そう いう 時 に 便利 な の が , デー タ の 変換 の 関数 で す 。 

一 般 的 に は , 次 の よう な 形 で 表し ます 。 








SNE, ASC と いう 関数 で ど あ て は め て みる と 
r —asc (n) 
n に 引数 の 値 を 代入 し て なけ ば , r に 結果 が 入っ て くる と いう わけ で す 。 も ちろ ん Tr と n は ,。 あ 
ら か じ め デ ー タ の 型 を 宣言 し て ちか な けれ ば な り 5 ませ ん 。 こ こ で , 引数 は str gr, 戻り 値 は int 
型 だ と する と, 第 3 一 16 図 の よう に な り ま す 。 






E 
"A LA 


ascín) 





JU ñ 
48 p 


print r 












end 
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LAMAMA M 第 3 草 標準 関数 と 外部 関数 SUR d ENEE 


run 
65 
Ok 
S 
第 3 一 16 図 デー タ 変 換 関数 の 使用 例 


行 番号 10 で 引数 を , 行 番号 20 で 戻り 値 を それぞれ 宣言 し て いま す が , 関数 に よっ て この 型 は 変 
わっ て きま す の で , それ に 合っ た 型 宣言 が 必要 で す 。 

ST, この デー タ 変 換 関 数 に は , 機能 に つい て 分 類 し て みる と 引数 と 戻り 値 に 付 じ て も 分 類 出 
来 ま すす 。 こ れ を まとめ る と , 第 3 一 17 図 の 様 に だ が り ま す 。 


戻り 値 str 型 BIN$, OCT$, HEX$ 
CHR$, STR$, GCVT 
ITOA, ECVT, FLUVI 


ABC. و‎ TOL: INF 
TOASUIL] TOLOWER, TOUPFER 


FIX. ATOP; VAL 





第 3 一 17 図 デー タ 変 換 関 数 
を それ で は , それ ぞ れ の 関数 に 付い て 説明 し ます 。 
(a) 戻り 値 が str 型 の 関数 


戻り 値 が str 型 の 関数 で , 引数 が 数 値 型 の も の は その も の ズバ リ , 数 値 を 文字 列 に 変換 し た い 時 
に 使用 し ます 。 表 現し た い 数 値 の 形 を 変え 0 る も の も あり , また その まま 文字 列 に する も の や 色々 
と あり ます 。 次 に あげ る 関数 は , 数 値 を 文字 列 に 変換 する 時 に その 数 値 の 表現 方 法 ま で 変え て し 
まう も の で す 。 


【BIN$ 】 
int 型 の デー タ を 2 進数 に 変換 し て 文字 列 し し て 返し ます 。 上 位 の 0 は 除 か れ ま す 。 
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MM RN اداد ایی رای اد اداد‎ ERR اید اید نود نید اید اود اود‎ RR اید نی نید‎ RM P RM P RR RM A AM P RP PR P RR RR RAM RR AR 3- T 標準 関 数 MAMA: 


この 関数 の 動作 を , 次 の 第 3 一 18 図 の ナン プル プロ グラ ム で 確認 し て みて 下さ い 。 






PB int 1 9 8 
eU str a,b 
30 a=bin$(x) 
40 b=bin$(y) 
90 print a.b 
6# end 
run 
LEE] 10000 
Ük 
ZS 



















第 3 一 18 図 BIN$ サ ンプ ルプ ログ ラム 


[OCT $] 
int 型 の デー タ を 8 進数 の 文字 列 に 変換 する 関数 で す 。 





この 関数 を 次 の 第 3 一 19 図 で 確認 し て 下 き O, 


int x-182 
Str a 
a=oct$ (x) 


print a 


end 
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۴1 نز PA M PA‏ ایا PA‏ ای ۴۹ ای( ۴۹ ار ۴۹ ای ۴۹ ای ۴۹ کی PA‏ ا ۴۹ ای ۴ یا ۴۹ ای ۴۹ ای PA‏ ای ۴۹ ایز ۴۹ ایز PA‏ ایز ۴۷ ار ۴۹ ایز ۴۹ نی PU‏ نی ۴۹ ایز P‏ ای ۴۹ رز PA‏ ای ۴۹ ای ۴۹ ای ۴۹ ای ۴۹ ای( ۴۹ ای PA‏ لیا ۴۹ نی ۴۹ لی ۴۹ ای ۴۴ ای ۴۹ ایا ۴۹ PU ad‏ ای ۴۹ ایا ۴۹ ایز ۴ ار ۴۹ ایز ۴۹ ایا ۴۹ ایز ۴۹ ای ۴٣‏ ای PA‏ نیا ۴۹ ای FA‏ لیا FA‏ ایا PA‏ لیا ۴۹ ای 4RMRMRI as 3 T 標準 関数 と 外部 関数 MEA‏ 


U‏ شش یٹک 


第 3 一 19 図 OCT も や サン プル プロ グラ ム 


[HEX $ 】 
int 型 の ダー タ を 16 進 数 の 文字 列 に 変換 する 関数 で す 。 上位 に 0 が ある 場合 は , 取り 除 か れ ま 
Ms 







r—hex$(n) 


この 関数 の 確認 は , 次 の 第 3 一 20 図 で 行っ て 下さ い 。 





int x=128 
str a 
a=hex$(x) 


print à 


end 





第 3 一 20 図 HEX や サン プル プロ グラ ム 

ここ に あげ た だ 三 つ の 関数 は 全て 引数 が int HT, 戻り 値 は その 数 値 に 対す る 2 進 表現 , 8 ER 
現 , 16 進 表現 で びす 。 こ の よう に 数 値 の 表現 を 変え る 関数 も デー タ 変 換 に な り ま す 。 

次 に あげ る 関数 は , 数 値 を 文字 に する も の の 中 で 考え 方 が 特殊 で , 初め か 6 文字 で ある こと を 
意識 し て いる 数 値 (文字 ユー ド ) を 扱う 時 に 使用 し ます 。 前述 の ファ イル 入出 力 関数 の と ころ で 
も 触れ まし た が , ファ イル の 中 に 入っ て いる デー タ は 文字 で あろ う と 数 値 で あろ うと 全て 数 値 と 
し て 保存 きれ て いま す 。 こ の よう な ファ イル の 中 の デー タ を 文字 と し て 扱え る よう に する 関数 が 
chro C す 。 


[CHR $ ] 
ASC の 反対 で , キャ ラク ター ユー ド を 引数 に し て 文字 を 返す 関数 で す 。 引数 は , 0 一 255 の 間 で 
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t 


J 7 nanununununuunununununununununununuIunanuinununuinunununununanununuinunununununununununununununununununununununununununununununun 3 ET 1 標準 関 数 HAMA 


な けれ ば な り ま せん 。 










r=chr$ (n) 


-OBRKEAKOR-HBECHIRLCEKSUG, OBBCCH b n S3, char ا رہ‎ 
ER rn ad 20 ten BHF, 色々 な 数 値 を 代入 し て 確認 し て みる と, 表示 出来 な い 
較 人 の ます 。 こ の よう に 表示 出来 な いも の に 付い て は , X-BASICO 2.3 7 v ORE E v 
トロ ー ル コー ド と ら て پت ھی موا‎ Y. SKE ド に 対応 する 機能 を print Xi-4 5 
使用 する こと が 出来 ます 。 





10 int x=65 
20 str a 


30 a=chr$(x) 








bent. a 






print a 





end 





第 3 一 21 図 CHR$ も サン プル プロ グラ ム 


次 に あげ る 関数 は , 数 値 を 文字 列 に その まま , 又は 表示 文字 数 に 制限 を 付け た 0 その 文字 列 の 
"て 解 し て 戻し た りす る も の で す 。 与 えた 引数 を その まま 文字 列 に 変換 する と いっ て も 関 
E Eat LCT, UE HE 
2 の は ユー ザー で すか らい ろ ん な 使い 方 を 見 つけ て みて 下 き い . 


[ITOA] 
int 型 の デー タ を 文字 列 に 変換 する 関数 で す 。 


Titoa (n) 
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a 


۸ئ ا ا ان ا ای ا لن لی ۴ ین ان ی0 یی نی نی لا ا لی لغ ا لی PUPPI‏ ای نی ایی ای( ای RU RUF RUF RM RIAM IR‏ تی Run‏ یچ ہیر ید 標準 関数 と 外部 関数‏ پا 3 AMAWA 第‏ 





- の 関数 を 第 3 一 22 図 に より 確認 し て 下さ ふい 。 こ の 関数 で は 、 数 値 が 文字 列 と し て 扱わ れ た 
場合 の 特長 を 確認 する こと が 出来 ます 。 


19 int x=1000, ۵9۵ 
20 str a,b 

30 a=itoa (x) 

40 b=itoaty) 

59 print x*y.a*b 
60 end 

run 

1919 100010 


第 3 一 22 図 ITOA サン プル プロ グラ ム 


【STR$ 】 
float 型 の データ を 、 文 字 列 に 変換 する 関数 で す 。 


r —str$ (n) 





この 関数 の 確認 は , 次 の 第 3 一 23 図 で 行っ て 下さ い 。 





10 float xz180. 184,۲۶ 
20 str a.b 

30 a-str$(x) 

40 bzstr$(y) 

58 print a*b 

60 end 


run 
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ata ta tee DDR P RO PRORA POLLO RUOLO RM PR Pd PU PRU ۳۹ ۹ا ۴ ای ۹ ایا ۹ کی ی۹۹ ای‎ UR ای‎ PU PR Pd Pd PU PURO ۹ ایا ۴ زی ۴۹ ای‎ PU PU HN Pd RM Pod Pd PR Pd PO PO PU ۹ نیز‎ RO ۷ ای‎ ۹ RR HR MEN RN RN ۹ لی‎ ۹) 3-1 標準 関数 HAMA 


18.10. 1 
Ok 
s 


等 3 一 23 図 STR$ お サン プル プロ グラ ム 


【GCVT】 
float 型 の デー タ を, 指定 きれ た 桁 数 の 文字 列 に 変換 する 関数 で す 。2 番目 の 引数 に よっ て 桁 数 
を 指定 し ます 。 


| r-—gcvt (nl, n2) | 


1 番目 float n] 
2 番目 int n 2 






この 関数 で 指定 きれ る 桁 数 は , n 1 の 値 に よっ て 桁 数 の 意味 が 変わ っ て きま す 。 次 の 第 3 一 24 
図 で を の 違い を 確認 し て 下さ きい 。 | 


IM float x-8.111,yz12. ID 
£0 str a.b 

30 acgcvt(x,3):b=gcvt(y,3) 
40 print a,b 

50 end 


run 
57001-12-11 
Ok 

a 





第 3 一 24 図 GCVT サ ンプ ルプ ログ ラム 

ご 覧 の よう に , ど ちら も 指定 桁 数 は 3 杵 に し て あり ます が , 結果 は 変数 a が 0.11f, 変数 2312.1 
と な っ て いま す 。 これ は 小数 点 を 含ま ず , 小数 点 以 上 の 数 値 が な い 場 合 は 小数 点 以 下 の 桁 数 が , 
小数 点 以上 の 桁 が ある 時 は , 小数 点 以 上 の 桁 数 を 優先 し ます 。 

これ 以外 に 関数 の 結果 が 二 つ 以 上 の 値 を 持つ 特殊 な 関数 が あり ます 。 戻り 値 は , 関数 で は 1 EB 
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1۷۴ n a 3 T 標準 関数 と 外部 関数 B PA h PA ha PA ha PA h F het A bet PU ba PU al PA had A ha PA hat PA ba PA ha PA al PA had PA bal FA bal PA h PA ha PA ha AO ha PA a PA had PAU bat P ha PA bal PA ha PA t PA ha PA ha PR ha A ha PA ba PA ba PA Dad PAU ba PA bat PA ba PA b PAU bat PA ha PA bd PA bad PAO Ma PA b PA ba PA h PA ba PA ba PA PUMA PAM PA MA PAA 


の 値 し か 持て な い の で , それ 6 ら は 引数 に も 値 を 返し て いま す 。 
以下 の 関数 は を そう いう 特殊 な も の で す 。 


【ECVT】 
float 型 の ダー タ を 文字 列 に 変換 し て 戻り 値 と し , 文字 列 の 小数 点 以下 の 桁 数 と , 小数 点 の 位置 
L. プラ ス 。 マイ ナス の 符号 を それ ぞ れ imnt 型 の 引数 に 返し ます 。 


float 型 で 与え ます 。 
int HT, 文字 列 の 小数 点 以下 の 桁 数 を 返し ます 。 


int HT, 小数 点 の 位置 を 返し ます 。 
int 型 で 、 プ ラス の デー タ な ら 0 を, マイ ナス な ら 1 を 返し ます 。 


str r 数 字 だ け の 文字 列 が 返り ます 。 





[FCVT] 
float 型 の デー タ を 文字 列 に 変換 し て 戻り 値 と し , 文字 列 の 桁 数 と , 小数 点 の 位置 と , プラ ス , 
マイ ナス の 待 号 を それ ぞ れ int 型 の 引数 に 返し ます 。 


float 型 で 与え ます 。 

int 型 で , 文字 列 の 桁 数 を 返し ます 。 

int 型 で , 小数 点 の 位置 を 返し ます 。 

int 型 で 。 プ ラス の デー タ な ら 6 0 を, マイ ナス な ら 6 1 を 返し ます 。 


strr 数 字 だ け の 文字 列 が 返り ます 。 





(b) 戻り 値 が int 型 の 関数 


これ か ら 紹 介する 関数 は 戻り 値 が int 型 の も の で す 。 と いう こと は , な に か (引数 ) を 数 値 に 変 
換 す る こと が わか り ま す 。 こ の よう に , 関数 の 引数 と 戻り 値 ご け を 評価 する だ け て , お お よそ の 
予想 が 立て られ る の も 関数 の 面白 いと ころ で す 。 


【ASC】 
文字 の キャ ラク ター ュ コード (ASCI コー ド ) を 返す 関数 で す 。 引 数 2 個 以 上 の 文字 列 の 時 は , 








標準 関 数 MAMAA‏ 1 -3 706 .... س ت شس تج ش تسم رود سشسرستلوپ یں 


ہو ری دہ - پر رسپ 500007200 





この 関数 は chr $ の 逆 の 変換 を する の で す が , 戻り 値 は int 型 で す 。 chr$ で は 引数 が char 型 
E SEIT, 実際 に 戻り 値 と し て 返さ れる の は 文字 コー ド な の て 機能 的 に は ہس‎ 
5 の 逆 の 変換 と し いう こと に な り ま す 。 

E 0 int 型 の アー タ は も ちろ ん 文 守 キミ ー ド で ある 以上 , 0 が 6255 まで の 数 憎 で す - 
Eo C char 型 の 変数 に この 戻り 値 を 代入 する こ と が 出来 ます 。 こ の ょ うに X-BASIC では; 数 値 
ET に ポ が 倍 う 変数 同士 で 代入 する こと が 出来 ます 。 こ れ を 弄 変 換 い し いい ます が 。 桁 あ ょ ら 

本 "ーー) が 起こ る と エラ ー に な っ て し まう の で 注意 が 必要 で す 。 こ の 関数 は 次 の 位 3 ے‎ 
25 図 に よっ て 確認 し て 下さ い 。 


str x=”X-BASIC” 
int a 

a=asc (x) 
print a 


end 





第 3 一 25 図 ASC サ ンプ ルプ ログ ラム 


[ATOI] 

X PHI int 型 の 数 値 に 変換 する 関数 で す 。 KEAS, int 型 に 変換 で きる 内 容 で な けれ ば な 
ませ ん 。 変換 で き な い 文字 が ある と , そこ て 変換 を やめ ま す 。 ま た. 文字 列 が null の 時 に は エラ 
SE Ze D IT. 
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mnvn S 3 A 標準 関数 と 外部 関 炒 ununununununananunananununanwnunanuanunununanununununununununununununununununununununununununuRunununununununumi 





この 関数 は 先程 の asc 関数 の 様 に str 型 の デー タ を int 型 に 変換 する も の で す が , 文字 コー ド 
で は な さく 文 字 列 と し て 表現 きれ て いる 数 値 を 元 の 数 値 に 変換 する も の で す 。 こ の 関数 は itoa DB 
の 変換 を する も の で す 。 この 関数 は 第 3 一 26 図 に よっ て 確認 し て 下 き い 。 


str ھی‎ 0 0017”, ys DI. 
int a,b 

a=atoi(x) 

b=atoi(y) 

print a+b 


end 





第 3 一 26 図 ATOI サ ンプ ルプ ログ ラム 
これ まで は , 引数 か 戻り 値 の どちら か に str 型 の も の が あり まし だが, 以下 の 関数 に は int 型 と 
float 型 と char 型 し か あり ませ ん 。 言い 換え れ ば , 数 値 の デー タ 変 換 の 関数 し いう こと に な り ま 
す 。 し か し, 文字 を 扱う 時 に 使用 する 関数 と も 言え を ます 。 こ の 中 に ある , toascii, tolower, toupper 
kc まな の が そう で す 。 


【INT】 
float 型 の ダー タ の 小数 点 以下 を 切り捨て て , int 型 の ダー タ と し て 返し ます 。 


が TE (mn) 





この 関数 は 従来 の BASIC で も 使わ れ て いた も の で す が , 変数 の 型 や デー タ の 型 が は っ きり し 
て いる X-BASIC の 場合 で は , 引数 に float, 戻り 値 に int と な る の は 言う まで も あり ませ ん 。 こ 
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OT RRM RM MRM RVR RV RURV RU AURURURU AUR RUAUAUAUAUAUAUAURUAUAUAURURUAUAUAUAUAUAUAUAUAUAURUAUAUAURUAUAURURURUAURURUAURUAURURURURUAURUR 3- 1 標準 関 数 MRMRI 


の 関数 は 次 の 第 3 一 27 図 で 確認 し て 下さ い 。 


19 float x=12.345# 
2 int a 


JU a=int(x) 


40 print a 


50 end 





第 3 一 27 図 INT サ ンプ ルプ ログ ラム 


SDK IC, 引数 の 小数 部 分 が 切り 捨て られ て int 型 の データ に 変換 きれ ま kap. 

ここ か ら 6 紹介 する 三 つ の 関数 は , 文字 (アル ファ ベッ ト ) の 大 文字 を 小文字 に , 小文字 を 大 文 
子 に , 与 えら れ た 文字 コー ド を 0 か ら 127 の アル ファ ベッ ト や 記号 の 文字 コー ド に 変換 する も の で 
す 。 し か し 文字 に 変換 する の で は な く , 文字 コー ド に 変換 する こと に 注意 し て 下る きい 。 


[TOASCII] 
引数 が ASCI 文字 ュー ド で な けれ ば , ASCI 文字 ユー ド に 変換 し て , int 型 の ダー タ ょ し て 返 
し ます 。 引数 が , ASCII の 文字 コー ド の 場合 に は , その まま int 型 デ ゲー タ と し て 返し ます 。 


r=toascii (n) 





[TOLOWER] 
引数 が 英 大 文字 で あれ ば 英 小文字 に 変換 し , int 型 デ ゲー タ と し て 返し ます 。 引数 が 英 大 文字 で な 
い 時 は , その まま int 型 デ ゲー タ と し て 返し ます 。 


r—tolower (n) 
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18۸ 7ا‎ 第 3 = 標準 関数 と 外部 関数 MUSB 





【TOUPPER】 
引数 が 英 小 文字 で あれ ば 英 大 文字 に 変換 し , int 型 デ ー タ と し て 返し ます 。 引 数 が 英 小 文字 で な 
ied, る の まま ipt 弄 デ ー タ と し で 返し まま すみ 。 
r=toupper (n) 


char n 


int r 





この 関数 を 確認 す る プロ グラ ム は ,。 次 の 第 3 一 28 図 へ まとめ て あり ます か ら , 違い ゃ 動作 に 付 
いて 確認 し て 下さ きい 。 


char YEG ESA 
FRIES دی‎ Y CR 
S=toascii(y) 
t=toascii(z) 
u=tolower(y) 


v-toloweríz?) 


w-toupper(y) 


x-toupper(z?) 
print s, i.u, v: N.X 


end 





第 3 一 28 図 TOASCII, TOLOWER, TOUPPER サン プル プロ グラ ム 


それ ぞ れ の 引数 が 関数 の 機能 どおり に 変換 きれ て いま す 。 こ の 第 3 一 28 図 の 中 に "(アポ スト ロ 
グイ ー) て 開き れ た アル ファ ベッ ト が あり ます が ,- これ は その 文字 が 示す 文字 コー ド を 意味 する 
b OC, char 型 の 変数 へ 数 値 で 代入 する の で は な く , 直接 文字 を 表記 し て その 文字 コー ド を 代入 
し よう と する も の で す 。 こ うし て 考え を て みる と, この アポ スト ロラ ジラ ォ ー で 凍 ま れ た 表現 往 。 9 表 
が 1 文字 の str 型 の デー タ を char 型 の 文字 コー ド に 変換 する 関数 で ある と 言え ます 。 
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ENEE 3 ES 1 標準 関 数 MAMA 


(c) 戻り 値 が float の 関数 


[ATOF] 
文字 列 を float 型 の 数 値 に 変換 する 関数 で す 。 文 字 列 lk, float 型 に で きる 内 容 で な けれ ば な 5 
ませ ん 。 変 換 で き な い 文字 が ある と 。 Z こ て 変 換 を や め ま す 。 ま た , 文字 列 が null の 時 は 。 エ ラ 


ー と な り ま す 。 小 数 点 や 指数 を 示す e A だ は E が ある 時 は , その 前 後に 1 個 ず つ 以 上 の 数 字 が な 
けれ ば いけ ませ ん 。 









ー の 関数 は str す の 逆 の 変換 を する 関数 で す 。 しかし, 数 値 を 文字 列 に する こと は 何 の 制 約 も b 
TREAD, 文字 列 を 数 値 に 変換 する 時 に は 色々 と 注意 し な けれ ば な ら な いこ ょ が あり ます ナ 。 を 
人 値 と いえ ば 0 か 6.9 ま で の 数 字 と 小数 点 の . (ビリ オド ) や 指数 を 表す e また は Le 
کے نے ہے و ہے وش ہت‎ TS 
sa, ris لت‎ ET وج مسدععوجد‎ = ONE روے و‎ 
図 で 確認 し て 下さ きい 。 | 





19 str x="0.001”.y=0. 115” 
20 float a,b 

30 a=atof (x) 

40 b=atof(y) 

S9 print a,b 

60 end 

run 
0.001 
0 
SS 













第 3 一 29 図 ATOF サン プル プロ グラ ム 
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AMAR 第 3 章 標準 関数 と 外部 関数 M Fd FA زی‎ PA ایا‎ PA Pd ۷ ایا‎ PR ایا‎ PU Pd PORUM Pd FA b PA Pd Pd RO PU Pd RO FROM POP PU PU ۴۹ بی‎ PA ای‎ PRU PA ای‎ ۴۹ RO ۴۹ ایا‎ FR Ru PR کیا‎ PRU RU ۴١ ایز ۴۹ ایز ۹ ایا‎ PA ایا‎ PA RM FUERO RM RM RR PA M PA نیز‎ PA 


[FIX] 
float 型 の ダー タ の 人 小数点 以 下 を 切り 捨て て , float 下 の デ ー タ と し て 返す 関数 で す 。 









float n 


この 関数 は float を int に 変換 す る int 関数 と 同じ 働き を し ます が , 戻り 値 は float 型 の まま T. 
す 。 動作 は int 関数 と 同じ で す 。 


【VAL】 
文字 列 デ ー タ を float 型 の ダー タ に 変換 する 関数 で す 。atof 関数 と 同じ 働き を し ます 。 








۵٥| |‏ ام 





str n 


文字 列 処理 


(a) 文字 列 の 種類 を チェ ッ ク す る 関数 


文字 列 処理 関数 の な か で , ISX メ メメ と いう 関数 は , 1 文字 の デー タ に 対し て それ が と どん な 種 
類 の 文字 びあ る か を チェ ッ ク す る 関数 で す 。 1 文字 と た は いっ て も , その チェ ッ ク の 対象 と な る の 
は , char 型 の 数 値 で す 。 変 数 の 説明 に も あり まし た が , char 型 は 0 一 255 の 数 値 を 扱う デー タ 型 
で す が , その 用 途 は 文字 デー タ の 取扱 い に 適し て いま す 。 こ こ て 説 明 す る IS メメ メメ と いう 関数 
ii, 全て この char 型 の ゲー タ に 対し て , それ が チェ ッ ク の 対象 と な る か と どう か 調べ , int 型 の デ 
ー タ の 0 か ー 1 を 返す も の で す 。 で すか ら , 引数 は 必ず char HT, 戻り 値 は int 型 に な が り ます 。 
従っ て , 実際 に この 関数 を 使用 する 場合 , 文字 列 の 中 の と の 文字 を 調べ で た いか , また その 1 文字 
だ け を どの よう に 取り 出せ ば よい の か を 十分 に 知っ て いる 必要 が あり ます 。 

ここ で 少し その 方 法 に つい て , 筒 単 な も の を 説明 し て お きま し ょ 2。 

第 3 一 30 図 の アプ ログ ラム の よう に 変数 を str 型 と し て 宣言 し , "X-BASIC" と いう 文字 列 が 入 
っ て いる と し ます 。 を の 中 の 3 番目 の 文字 を 取り 出し た だ い 時 , a [2] と 書く と char 型 と し て 3 
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RURAL 3-1 標準 関数 MAMAE‏ /بی ‏ یتم سمسسشوھفپشفشفپ۰فی۸ؤیسڈپژ2--٭ث-..س.....-..س.ححت 


SUO'B'OT-5 (数 値 と し て は ,66) が 取り 出せ る の で す 。a [2] の 2 は 5 HEES 
E یو صا‎ LR OR e [0] LiB و‎ 2505 5C chartis OE A 
£808, iet 5 ردب ور ہہت شک‎ mz, char 型 の 配列 同じ よう な 扱い に た 
リコ? からだ と 思 われ ます が , と に か く 覚 えて お て と 便利 な こと で し ょ う . 














10 str a = "X-BASIC” 
20 print a[2] 
run 
66 
Ok 
SS 


第 3 一 30 図 文字 列 より 任意 の デー タ を 取り 出す 














SAD ORAT SEI S COO char HT, 戻り 値 が int 型 で す 。 ま た , それ ぞ れ の 関数 の 


は 価 を 調査 対象 に する か で 、 調 べ 方 及び 調べ た 結果 の 表現 の し か た は 全て 同じ で すか ら . 拓 
本 的 な 使用 例 を 第 3 一 31 図 に 示し て ぉ きま す 。 







Hi char و٦‎ 
20 int r 


30 r=isxxxxx(n) 







40 print r 
50 end 
run 
9 また は -1 
Ok 
= 
















&3 一 31 図 IS メメ メメ 関数 の 基本 的 な 使用 例 


SALNUM】 
E "和久 字 で て ある か どう か 調べ , 英 数 字 で あれ ば メー 1 を 、 そ う で な けれ ば 0 を 返し ます 。 
bere (AーZ), Sie (a—z), RF (0-9) の 文字 コー ド で す - 


[ISALPHA] 


Er éen وو‎ RETON- 1 を 。 SCENE ap, A 
RX (A-2), 英 小 文字 (aーZ) の 文字 コー ド が て す . 
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WANA 第 3 T 標準 関数 と 外部 関数 PU ہی یر ہر‎ RM یر‎ RP ا ایر ۴۷ یا‎ RP PO Pd P ایز ای‎ RM PU ROM Pi RO P ۷ P ای‎ ۷ PUPA END DND ایا‎ PRU RM Pd RO PRU ایا ای‎ P PR P PP P PU IMPR RM NNI 


[ISASCII] 

文字 ユー ド の デー タ が アス キー 文字 で ある か どう か 調べ で , アス キー 文字 で あれ ば ーー 1 を, € 
で な けれ ば (0 を 返し ます 。 ア スキ ー 文 字 と は, 文字 コー ド が 0 一 127 (&H00—&H7F) の 文字 で 
ا‎ 


[ISCNTRL] 

文字 コー ド の デー タ が コン トロ ー ル 文字 か どう か 調べ で , コン ト ロー ル 文 字 で あれ ば ーー 1 や, < 
う で な けれ ば 0 を 返し ます 。 コ ント ロー ル 文 字 と は , 文字 コー ド が 0 一 31 と 127 (&H00— &HIF 
L&H7F) の 文字 で す 。 


【ISDIGIT】 
文字 ユー ド の デー タ が 数 字 で ある か どう か 調べ , 数 字 で あれ ば ー 1 を , そう で な けれ ば 0 ER 
Lx و‎ りー ベツ の ) こ EZE Fs 


[ISGRAPH] 

文字 コー ド の デー タ が スペ ー ス 以外 の 表示 可能 な 文字 か どう か 調べ で . を そう で あ れ は ーー1 を , € 
ぅ で な けれ ば 0 を 返し ます 。 ス ペー ス 以 外 に 表示 可能 な 文字 と は , 文字 コー ド が 33 一 126 Lë 
H21—&H7E) の 文字 で す 。 


【ISLOWER】 
文字 コー ド の デー タ が 英 小 文字 びあ る か どう か 調べ , 英 小 文字 びあ れ ば ー 1 を , そう で な けれ 
Nn こい 


【ISPRINT】 

文字 コー ド の デー タ が 表示 可能 な 文字 か ど う か 調べ で , そう で あれ ば ー 12, そう で な けれ ば 0 
を 返し ます 。 表 示 可 能 な 文字 と は , 文字 ユー ド が 33 一 126 (&H21—&H7E) の 文字 で , スペ ー ス 
も 何で で まず , 


【ISPUNCT】 

文字 ユー ド の デー タ が 表示 可能 な 記号 か ど うか 調べ 。 を そう で あれ ば ーー 1 を, そう で な けれ ば 0 
を 返し ます 。 表 示 可 能 な 記号 文字 と は , 文字 コー ド が 32 一 47, 58 一 64, 91— 96, 112—126(&H20—& 
H2F, &H3A~&H40, &H5B—&H60, &H7B—&H7E) の 文字 で す 。 


[ISSPACE] 


文字 コー ド の デー タ が 空白 文字 か どう か 調べ で , そう で あれ ば ーー 1 を , そう で な けれ ば 0 を 返し 
i, 空白 文字 し は , 文字 コー ド が 9 ~13, 32 (&H09—&H0D, &H20) の 文字 で す 。 
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mrrnuvvnvnunvnunvnununvnununurunvnunvvnunvnunvnvnunvnunvnwmunvnumvnvnamvmumvnnumvnmunvnemvnunynununn 3 Se 1 標準 関 数 RMRM! 


[ISUPPER] 
区 チコ ー ド の デー タ が 英 大 文字 で ある か どう か 調べ , 英 大 文字 で あれ ば ー 12, نر ہے واج‎ 


ば 0 を 返 E i E 和央 大 文字 と iz, A~ 72 の 文字 で す 。 


[ISXDIGIT] 
ズ メチ コー ド の デー タ が 16 進 の 文字 で ある か どう か 調べ , そう で あれ ば ー 1 を 。 を そう で な けれ ば 


を 返し ます 。16 進 の 文字 と は, 0—9, A-F, aーf の 文字 で す 。 


(b) 文字 検索 を する 関数 


- こ に 出 て くる 関数 は , 文字 列 中 か ら 指定 され た も ちの (文字 まだ は 文字 列 ) を 探し 出し を 
の 位置 を 返す も の で す 。 


[INSTR] 
her, 3CERVEREU C, 何 文字 目 に ある か を int 型 で 返す 関数 で す 。 何 文字 目 以降 か ら 


座 す と いう 指定 が 出来 ます (エー255 の 間 )。 ど ちら か の 文字 列 が null だ っ た り , 見 つか ら た か っ 
に 時 や , 探し は じ め る 位置 が 0 以下 だ と , 戻り 値 は 0 に な り ま す -. 


n ] …… int C, 何 文字 目 か ら 6 探 すか の 指定 
n 2 ……| str HT, この 文字 列 中 か ら 探 す 
n 3 ……] str FC, 探し た い 目 的 の 文字 列 


int r 
探し 出し た 文字 の 位置 を 返し ます 


IR str astz"super central processing unit 68009" 
20 int r 

| 30 r*instr(l;ast,"unit") 

40 print r 

90 rinstr(19.ast. "een? 

60 print r 

B run 

| 18 
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LT 第 3 Si 標準 関数 と 外部 関数 MF ہی‎ FA زی‎ FA ای‎ FR زی‎ FA لی‎ FA ایا‎ FA ba PA نی‎ PA ایز‎ PA ایا‎ RM P RP RPM RM PPM FA ایز‎ PA ایا‎ PM PRO POP PO PO PUMP PO PU PU Run Ru RU ۴۹ ایز‎ POPULAR ۴۹ ای‎ PA ایز‎ PA ای‎ PA ای‎ PA ایز‎ PA ایا ۴۹ یا‎ RAM REPE 





【STRCHR】 
文字 列 の 中 か ら 6 1 文字 を 探し , 最初 に 見 つけ た 位置 を 返し ます 。 先頭 を 0 と し た int 型 の 値 を 返 
し ます が , 見 つか ら な か っ た 時 は ーー 1 を 返し ます 。 


kesme (01, 82) 


str WT, この 文字 列 か ら 探 し ます 。 
char "C, 探し た い 文 字 を 区 ん ます 。 


str stz"WE need real time multi task" 
har as も 

int r 

r=sirchr(st;a) 


print r 





[STRCSPN] 
文字 列 1 の 中 か ら , 文字 列 2 の どれ か 1 文字 を 最初 に 見 つけ た 位置 を 返し ます 。 戻り 値 は 先頭 
を 0 と し た imnt 型 の 値 を 返し ます 。 見 つか ら な か っ た 時 は , 文字 列 の 長き を 返し ます 。 


E —strcspn (n 1, n2) 


str 型 


str 型 で , 探し た い 文 字 を 並べ ます 。 
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WAMA 第 3 E 標準 関数 と 外部 関数 BFA bM FA hat PA hal FA al FA a FA ba PA ha FA al A Da PU hat PA hal PA ha PA bad PA ha PA ha FA Da PA a PA ha PA Da PA ha PA a PA ba A bad PA Bat FA Dat PU ha PA a PU ha A had PA at PA Da PA ba A ad PA at PA Da PA ha PA hat PA ha PA had PA a PA ah PU had P Dad PA had PA Dad PAU had PA ad PU ba PA Da PA bad PA D PAL ba PA D PA Ma P 


【STRCHR】 
文字 列 の 中 で 指定 し た 1 文字 が 、 最 初 に 見 つか っ た 位置 を 返し ます 。 先頭 は 0 で , 最後 まで 見 


つが か がら な か っ だ 時 は , 一 1 を 返し ます 。 


sehr (81, 2) 


str n] 
char n2 キャ ラク タコ ー ド て 変換 





(c) 文字 列 を 加工 する 関数 


ここ で 紹介 する 関数 は , ある 条件 に よっ て 文字 列 を 切っ た だ たり 貼っ た りす る も の で す 。 文字 列 処 
理 の メイ ン で すか ら 良 《 理 解 し て 下さ い 。 


[LEFT$, MID$, RIGHT $] 

こ の 三 っ の 関数 は , いずれ も 文字 列 の 中 か ら 指定 きれ た 一 部 分 の 文字 列 を 取り 出す た め の も の 
C, LEFT $ は 左側 か ら , RIGHT $ は 右側 か 6 指定 され た 数 の 文字 列 を 取り 出し ます 。MID 
$ だ け , 引数 が ひと つ 多 く て , 何 文字 目 か ら 何 個 取 り 出 す と いう 指定 が で きる の で , 文字 列 の 中 
央 あたり か ら 取 り 出 すこ と が 可能 で す 。 


027 )لا ای 
rーright$(n1, n2)‏ 
p= Ct Hn n-3)‏ 


LEFT$ は 何 文字 取り 出す か と いう 指定 
int 型 RIGHT $ は 何 文字 取り 出す か と いう 指定 
int €! MID$ は 何 文字 目 か ら と いう 指定 
MID$ の と きだ け 必 要 。 何 文字 取り 出す か の 指定 


str st="friendly 0S Human 68k" 


str-r 
rzleft$(st, 5) 


orint r 
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۷ ۴ Ll ایز‎ FA ایا ۴۹ لیا‎ A ای(‎ PA ایا‎ PA ایا ۴۹ یڑ‎ PA ایا ۴۹ ایا‎ PA ای ۴ ایز‎ PA ایا ۴۹ ایز‎ PU ایز‎ PA ایا‎ PA ایز‎ PU ای‎ PA ایز‎ PA ایز‎ PA ایز‎ PA ایز‎ PA ایز‎ PAU ایز‎ PA بیز‎ PAU ایز ۹ ایز‎ PA بی‎ PA ایز‎ ۴۹ L ایز‎ PA ای‎ PA ایز ۴۹ ایز‎ PA ای ۴۹ ای‎ PA ای‎ PU ا‎ PA ای ۴۹ ای( ای ۴۹ ایز‎ PA a PA ارز ۴۹ ای‎ PA ایز‎ PA BP aL al Bl lal la. lal Dal lal al PA Dal F 3-1 標準 関数 PMRMI 


58 r-zright$(st,9) 
60- print r 

70 rznidëiet, 109,2) 
FU print r 

run 

friend 

Human 58k 

05 


Ok 
ë 





[MIRROR $ ] 
文字 列 の 並び を 反転 し て 返す 関係 で す 。 


r-mirror$ CH) 








str n 
関数 実行 後 も n は その まま 








Str T 


引 数 の 文字 列 n が 反転 きれ て 返さ きれ ます 







I8 "str ste" - ۳ 
29 
30 
40 
run 
し ISAB-X 
Ok 
E 









str ts 


ts-mirror$(st) 









print ts 












[STRING $] | 
一 つの 文字 を 指定 し た 数 だ け 並 べた 文字 列 を 作り ます 。 長き は , 最大 255 ま で で , 0 以下 を 指定 
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HAMA 第 3 CN 標準 関数 と 外部 関数 TU 


が 


時 は null 文字 を 返し ます 。 


(O L, n2‏ و ےت و 


n 1 ……:int 型 で 作る 文字 列 の 長き 
n 2 ……str 型 で 1 文字 を 指定 


int a 
Ste p 
strt 
r=string$(a,b) 


print r 














[STRLEN, (LEN)] 
文字 列 の 長き を 返し ます 。null 文字 の 時 は 0 を 返し ます 。 





—strlen (n) 
tzlen (mn) 
(どちら で も よい ) 





字 変 数 の 中 の 英 FE, 英 小 文字 に 変換 し ます 。 
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PM PU PU Pd RPM Pd PU ROOF PU I Rd PU PU PA Da PA Da PA Da P PURO RU PO PU PRU PUR PUR PA Da PA hah PA Pd PU PU PU P RU PU PO PU PRU PA ba PA ba PA PURO PRU RU PULO PA ha PA RR FA h PA h F 3- 1 標 準 関数 AMAMI 





[STRNSET】 
文字 変数 の 中 の 先頭 か ら 指定 し た 数 の 文字 を , 指定 し た 文字 に 変換 し ます 。 


n 1 ……:str 型 変数 


1.2... char سے لا‎ ES 
n3……aint 型 、 何 文字 変換 する か を 指定 





【STRREV】 
文字 変数 の 並び を 逆転 し ます 。 





str n 


引数 と し て 渡し た 文字 列 n も 反転 する の で 注意 し て 下 き い 。 






SE T 
n が 反転 し て 返る れ ま す 。 









[STRSET] 
文字 変数 の 中 の 文字 を , 全て 指定 し た キャ ラク タコ ユー ド の 文字 に し ます 。 





r =strset (n 1, n2) 







n ] -estr بل‎ 
Ú 2+ ور‎ 型 。 キャ ラク タユ ー ド で 指定 


















WHANA 第 3 I 標準 関数 と 外部 関数 MP PU PU PU P POM ۹ ای‎ PO PU PUO PR Pd PUO Pd PU ۹ PO RU PURO PURO RRMA زی ۹ ای‎ PO RM ۴ RN RN PRO ای ۹ ایز( ای(‎ PAPA PA لی‎ PA ای ۹ ایا‎ PA ایز ۷ ایا‎ PA نز‎ PA M AMA ایز‎ RV RN RV FERT 


【 STRUPR】 
文字 変数 の 中 の 英 小 文字 を , 全て 英 大 文字 に 変換 し ます 。 


rsstrupr (1) 








数 値 演算 関数 





ここ に 出 て 〈 く る 関数 は ,。 これ まで に 出 て きた も の すり 馴染 な の 深い も の で す 。 数 学 的 な 関数 の 
原点 の よう な も の で すか ら 6 理解 し や すい と 思い ます 。 幾つ か の 関数 が あり ます が , 数 学 的 な 分 類 
や 使用 目的 に よ り 分 類 し て あり ます 。 


(a) 三角 関数 


【ATAN】 
n の 逆 正 接 (アー クタ ンジ ェ ン ト ) を 計算 し ます 。 戻り 値 し し て は ,ー ヶ 2 か ら ァ グ 2 ま で の 


値 を 返し ます 。 


Ze 
Bag Ee 


【SIN】 
n (ラジ アン ) の 正弦 (ナイン) を 計算 し ます 。 










E Seen (iH) 







n (=> Z y)‏ ھا 
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n (2777) の 余弦 (コサイン ) を 計算 し ます 。 


daat o (91 7») 





[TAN] 


foarm ご (ラジ アン 


float r 





(b) 対数 演算 関数 


【EXP】 
自然 対数 の 底 ”e "の n 乗 を 計算 し ます 。 





(n)‏ وزج سے ا 







float n 





【LOG】 


float n. (n> 0) 
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MAMA 第 3 SS 標準 関数 と 外部 関数 DMPA PPM PPM Pd P Pd Fd Pd ۹ ایز‎ PA Pd PUOI Pd ROPA PO PORUM PRU PA ا‎ PU PUO PUO PA یز‎ PA ایا‎ RU PA نی‎ PA نی ۴۹ ای‎ PA ا‎ PURO PA ای‎ PA b PA نی‎ PO PA ha PA PU PR PROP RR PRU RUE PA ای ا ایا‎ FA ی۴۷ ای 5 ای‎ 7 





(c) 乱数 用 の 関数 


[SRAND] 
rand ( ) の 系 列 を 初期 化し ます 。 ilk, 0 一 65535 の 範囲 を 取り ます 。 


r=srand (1) 


(戻り 値 は な い ) 





【RAND】 


IE pa tO: で せく 32767) 





| [RANDOMIZE] 
rnd ( ) の 乱数 系 列 を 初期 化し ます 。 


randomize (i) 


void (戻り 値 は な い ) 
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E 


nvnvnunvnunvnunwnvmunvmur اک‎ 標準 関 A mme 


[RND] 
0 以上 1 未満 の 乱数 を 返し ます 。 


float (PEE 20 





(d) その 他 の 数 値 演算 関数 


[PI] 
円 周 率 を 返し ます 。 


float n 
n 


float r 


を が 1n 倍 に な り 返 され ます 





【ABS】 





[POW] 
(i ako E T 4 
ー と な り ま す 。 


HAMA 第 3 X 標準 関数 と 外部 関数 M PU PUM PU PO PO Pd PU PPM PU PO PU PO PU PU PU RO PU Pd PU PU PU PU PU PO PU PUR POP PU PU Pd PU Pd PU PUO FR PRO PL PO PU P P PU PULO PUER POLUM PUOI 


d J ` float x, y た だ し x OT, Y は 整数 値 








| [SGN] 
n の 符号 を 調べ 正 の 数 だ っ た ら 1 を , 1 の 場合 は 0 2, 負 の 数 だ っ た 6 一 1 を 返し ます 。 


0 _ 書 3m. r —sgn (n) 


float n 





float r 





| [SQR] 

















j 
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7ف ۹ ئ۸۸ ا P PARA 3-2 > ジジ > 2 変数‏ ا ا بیز ا ا e CO H‏ ا PM‏ ای ئا رر خی ری ا یا ای از RU‏ ایز یئ ای از ای ای ای یا ین نآ RM‏ نا ا ایی OT‏ 








ここ て は 標準 関数 に も ステ ー ト メン ト に も な れ な か っ た 特殊 な 変数 に 付い て 解説 し ます 。 こ の 
『 失 な 変数 の こと を , シス テム 変数 と し いい ます 。 こ の シス テム 変数 は , X68000 の メモ リト 上 で 色々 
な ハ ー ド ウエ ア の 状態 を 各部 が 処理 を する ご と に 変更 きれ る 変数 で 。 それ ぞ れ の 情報 が 入る メモ 
に 変数 名 を 割り 付け た も る の で す 。 

ンス テム 変数 で 読み 取れ る ハー ドウ エア の 状態 と は 次 の ぉ の を いい ます 。 





STT, ズ 68000 の 各部 で 使用 みれ て いる LSI の 状態 が メモ リ に 書き 込ま れ て いる と 理解 す 
REIocoÓ, 

(a) プロ グラ ム メ モリ の 残 量 を 知ら せる 変数 

ログ ラム メモ リ の 大 きき ミ i, "BASIC CNE” t'h 設定 され X-BASIC が 立ち 上 が 2 る 時 : 
NN ^ 77000 e H ERLT, وم وت‎ A Aen, nee Ae Eege 
TT ち 込 ん で いっ ただ り , 実行 中 に 大 き な 配 列 等 を 確保 し なり する こと で プロ グラ ム メ モリ 
旨 和 と ( な っ て いき ます 。 そ ん な 時 に この 変数 を 読む こよ で , 残 り の メモ リ の 最 を 知る こ ょ 
SUIDK i. | 
[FREE] 





n =free また は free 


19 print free 
20 end 


run 


128030: ek DERRY PF X EU REE FD RA 
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` IL じじ as 3 A 標準 関数 と 外部 関数 ERMIR MA M FUM A b FA M PA h PA h PA bP b FA h PR h PA hah PA h PA Da PA h PA ba PU ha PA ha PAO ba PA ha PE ha PR a PA ba PA Dad PA bal PA h PA a PA hat PU hat PA ha FA ha PR he PA a PA ha PA ha PA h PA ba PA a PA bad FA ba PA ba FA bad PA bol PA bad PAU ba PA e PA had FA h PA h PA D PA h PA b PA P 


—- 





| 
この 変数 は 、 読み 込み 専用 で 変数 に 値 を 代入 する こと は 出来 ませ ん 。 
(b) 現在 の 日 時 ・ 曜 日 を 知ら せる 変数 


X68000 に は , バッテリー バックアップ 付 の 時 計 (電源 や 切っ て も 時 を 刻ん で いる ) PAR SN 
て いま す 。 こ の デー タ を いつ で も 新しい 日 時 , 曜日 デ ゲー タ に 書き 替え を て いる の が 次 の 三 つ の シス . 
> ム 変 数 で す 。 





st—-date$ まだ は date $ 


19 print date$ 
20 end 

| B run 
87/11/07 

Ok 


| | st=day$ まだ は day$ 


10 print day$ 
20 end 


run 





st-time$ まだ は time 


10 print time$ 
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runununununununununununununununununununununununununununununununununununununununununununununununununununununununununununu ML 3-2 ツジ K => JA 変数 IRMA MI 





E NN 


さや , この 変数 は , 全て str 型 の 変数 で す 。 こ の 中 で , date$, time$ に 付い て は 文字 列 を 代入 
する こと が 出来 ます 。 代 入 され る 文字 列 の 書式 は , 変数 を 出力 し て くる も の と 同じ に し て な けれ ば 
EILA. この 機能 を 利用 し て , 時 刻 や 日 付 を モッ ト す る こと が 出来 ます 。 こ の 機能 の 中 に day 
S を セット する こと が 出来 な い の は 日付 が 決ま よっ て し まえ ば 曜日 も 決ま っ て し まう た めで す -. 


(c) キー ボー ド か ら の 情報 を 知ら せる 変数 

ステー トメ ント に あっ た jnput 文 と 似 て いま す が , sfr 型 の 変数 に 1 文字 だ け 入 力 さ れ ま す 。 また 
ー ウ ンス テム 変数 は , 代入 形式 を と っ て いる た めこ の シス テム 変数 に は も うー つの str 弄 変 数 を 
用 意 し な けれ ば な り ま せん 。 


[INKEY $ 】 


ER str st 
20 a=inkey$ 
30 print st 
40 end 





-OREORAXELOUSL, 0ف‎ A Dh UI کے رر کرو مسا‎ 
ー ク が ス っ て 《 る まで 待ち を すす 。 キ ー ボ ー ド が 押さ れ キ ー コ ー ド 情報 (文字 ユー ド ) が 左辺 に 代 
BORE EBT プロ グラ ム は 再開 され ます 。 つ まり , 上 記 の 例 で は 。 変数 4 に 代入 きれ た ょ 』 
の ダブ ログ ラム が 再 間 る れ ま す 。 この シス テム 変数 で は 。 1 文字 入力 の input E (J ター ン を 
全 す 必要 が な い ) よし て 使用 出来 ます 。 こ の シス テム 変数 で マニ ュ アル に 記述 きれ て いな いも の 
が あり ます 。 次 の inkey$ (0) CT, 

【INKEY $ ( 0 ) 】 





St 三 inkey $ (0) 
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MAMANI ES 3 TE 標準 関 Xx 2 外部 関数 IR FA بی‎ POM PR PU PU POM P PUO Pd RU POR 7۹ ایز‎ PA ایا ۴۹ نیا ۴۹ ایز‎ PA ایا‎ Pd ۴۹ ای‎ PA اط‎ PA PO PU Ri PU RR RU PUR PR P ۴۹ ای‎ FA ایز‎ PA ایا‎ PA ای‎ PA ای‎ PA ای ۴۹ ای‎ PA PU AM PR PA ایا ۴۹ ایز‎ PA اط‎ PAM RR PARI! 


while 1 
St=inkey$(0) 


print. st 
endwhile 


end 





この プ ブログ ラム が 実行 きれ る と , キー を 押し た 文字 が 表示 る され て , キー を 離す と 表示 きれ な さく 

な り ま す 。 つまり, 30 行 と 40 行 を 高速 で ルー プ し て キー が 押 き る きれ て いな く て も 次 の 処理 へ 移り ま 
す 。 こ の シス テム 変数 を 使 を ば, リア ル タ イ ム の キー 入力 が 出来 ます 。 例 えば , 表示 中 に キー 入 
力 に より 表示 を 一 時 ストップ きせ だ たり, 表示 を キャン モル る させ た りす る こと が 出来 ます 。 


(d) カー ソル の 位置 を 知ら せる 変数 

ステ ー ト メン ト の 1locate 文 を 使っ て カー ソル 位置 を 指定 する こと が 出来 まし だ が , この シス テ 
ム 変 数 は 現在 どの 位置 に カー ソル が ある の か を 知る た め の 変 数 で す 。 こ の 変数 は 読み 出し 専用 て , 
数 値 を 代入 し て カー ソル を 移動 する こと は 出来 ませ ん 。 カ ー ソ ル を 移動 する に は locate 文 を 使用 
すれ あれ ば まい わけ て す 。 


【CSRLIN, POS】 


yY-esrlin まだ た は 6 


2-08 DOS 


18 locate 18,15 


28 print X= POS 


30 print "ve" icsrlin 
40 end 





以上 が シス テム 変数 で す が , X-BASIC で は この シス テム 変数 と 同一 名 の 変数 を 使用 する こと 
が 出来 ませ ん 。 ま た , こ の 他 に も ステ ー ト メン ト や 関数 名 と 同一 の 変数 名 を 使用 する こと も 出来 ま 
vA. これら を , 予約 語 と 言っ て 双 -BASIC マ ニュ アル の 巻末 に 列記 し て あり ます の で , その ま 
ま 使 用 し な いで 下る い 。 これら は , 全く 同じ で な けれ ば 使用 する こと が 可能 で , 次 の ょ うな 工夫 
を すれ ば プロ グラ ム 中 に 変数 と し て 使用 する こと が 出来 ます 。 
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RAP P 3-2 > = = JA 変数 AMAT‏ ایا یی ای OI RR P‏ ای ری P P‏ یی ا ای ایی RIP NAM P P‏ یا ایی زایا ای RAM‏ یر از ای ا ای یئ ای ای یئ یا ای ا نب ان( یا لی ۷ نب۴ ایا اس 


E を 削除 








ワン ポイ ント テク ニッ ク en 


論理 演算 し いう の は 複数 の 条件 式 や , ビッ ト 単 位 の 処理 を し た りす る 時 に 使用 し ます 。X-BASIC で 
は , 次 の よう な 論理 演算 の 使用 が 許さ れ て いま す 。 






(US NOT 






② 論 理 積 AND 





3 論理 和 OR 


123 








MAMAN a 3 = 標準 関数 と 外部 関 Sr (RM P P P4 P Md POR P Pd R RU PO ROM ایا‎ POM PU ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا‎ PA ایا ایا ادا ایا ایا ایا ایا ایا ادا ایا‎ RM Ru DND RM Ru Ra ایا‎ Ru Ru unu? 


Tr m 
EK: A lE» 





(1) 画面 モー ド 


グラ フィ ッ ク 表 示 の た だ た め に は , まず グラ フィ ッ ク 画 面 の モー ド を , 使い 方 に 合わ せ て 設定 する 
必要 が あり ます 。 こ の グラ フィ ッ ク 画 面 の モー ド を 設定 する ステ ー ト メン ト が , 「SCREEN」 で て 
0 


[SCREEN] 








screen a, b, c, d 


ee 表示 画面 サイ ズ 
a ニ 0 の と き 256 x 256 
a 三 1 の と き DIZSI 
a ョ ーー2 の と き 768512 



















b …… 実 画面 , 色 モ ー ド 及び 使用 可能 な グラ フィ ッ ク ペ ー ジ 
b ニ 0 の と き 1024x1024 65536 色 中 16 色 ペー ジ 0 のみ 
b= の と きき 512x512 6553661660 - ペー ジ 0-390407 
bp 三 2 の と き 512x512. 6536 色 申 256 色 ページ 0 一條 の グ ポ ペー ジグ 
b テ 3 の と き ں4‎ ペー ジ 0 の み 









ーー ディ スプ レイ の 解像度 
cC 三 0 の と き 標準 解像度 (15kHz) スー パー イン ポー ズ 可 能 
c 三 1 の と き 高 解像度 (31kHz) スー パー イン ポー ズ 不 可 
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۳٣۷۳۷ 3-3 外部 関 数 AMAMI‏ 111119 11 تسس مس سس میں 





06) …… グラ フィ ッ ク 画 面 の 表示 ON/OFF 

d 三 0 の と き グラ フィ ッ ク は 表示 きれ ませ ん 。 

d 三 1 の と き グラ フィ ッ ク 画 面 を 初期 化し 表示 ON に し ます 。 

| この と き , グラ フィ ッ ク RAM 内 の デー タ は 全て 消去 され ます 。 








@Z7 774 - Z—— 

グラ フィ ッ ク 画 面 に は ペー ジ と いう 考え 方 が あり , 例え ば , 実 画面 512X512 色 モー ド が 65536 色 
中 16 色 と し た 場合 は , ペー ジ 0 か ら ペ ー ジ 3 まで の 四 つ の ペー ジ が 実 画面 512 x 512, 65536 色 中 16 
色 と い う モ ー ド で 使え る こと に な り ま す 。 複 数 の ペー ジ を 扱う 場合 に は , 何 ペ ー ジ 目 を 表示 ON 
まだ は OFE に する か , 何 ペ ー ジ 目 に 四角 形 を 書く て か と いっ た よう に 処理 に よっ て ペー ジ を 選択 


する 必要 が あり ます 。 こ の ペー ジ を 扱う た め の 関 数 が . vpage と apage で す 。 
【VPAGE】 


mad 

E N T 
3 um 5 Fs = e — aT —— EE UU 
X OFF xcu c 0〔Oo 




















SO "09. "gi ` Zb 941. o5 OS. S oe uem 


QU CL ORC) 9X Ex se uc C91 (09 be 7x 9€ ex 
Ee EEN E Uv (9 یں‎ iu qu dq Qe dE d کی‎ 


Ou ON Qe TUM (e OO Se qox ey pa 
(UG ور‎ En DONE E C の ん の つみ 





i の 値 は , 「SCREEN」 で 設定 し た 画面 モー ド に よっ て 決ま り ま す 。 
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HAHA انا‎ 第 3 = 標準 関数 と 外部 関数 (ROO POR RM PUR ۴۹ PO Pd FM POR PURO یا ایل ایا ایا ایا ایا ایا ایا‎ PU PROP POM اوا اوا ایا اوا ایا اوا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا‎ RR PROPRE ای ا‎ RENE 


512x512 (256 色 モー ド ) i=0~3 


[| EE 
【APAGE】 


ee アク ティ ブ ペ ー ジ 番号 




















b D kde 


アク ティ ブ ペ ー ジ と いう の は , 実際 に 読み 書き する ペー ジ の こと を 意味 し ます 。 
第 3 一 32 図 は 画面 モー ド を 表示 画面 サイ ズ 512X512, 実 画面 サイ ズ 512X512, 65536 色 中 16 色 モ 


や 


ー ド で ,。 0 一 3 ペー ジ の グラ フィ ッ ク ペ ー ジ を 使用 で きる よう に 設定 し , 0 8 


角形 を 書き vpage 関数 の i の 値 を か える こと で , どの よう に 四角 形 が 表示 る れ て いる か を 実験 し 
て も 65 う た め の プ ログ ラム で す 。 実 行き せる と, vpage( 0 ) の 状態 か ら は じ ま り , 何 か が キー を 押 
すご と に vpage 関数 の i の 値 が 変化 し て いき ます 。 


/* apage&vpage test 


iti 





30 str space 

40 screen 1,1,1,1 

50 palet(1,hsv(9.31,31)) 
60 palet (2, hsv(32, 31, 31)) 
70 palet(3,hsv(64,31,31)) 
80 palet(4,hsv(96,31,31)) 
90 vpage (0) 

100 apage (0) 

110 fill (0,0,60,60, 1) 

120 apage(1) 
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E FA ای‎ PA ای‎ PA ایر‎ PA ای ۴۹ نیا‎ PA )یز‎ PAU لی‎ PA ایز ۴۲ ایز ۹ ای ۴۹ یز ۴۹ ایا ۴۹ ایز‎ PA ای ۴۹ ایز‎ PA ای ۹ ایز‎ PA ایز ۶۹ ایز‎ A ایز ۴۹ ای‎ PA ایز ۴۹ ای‎ A ای‎ PA بی‎ PA ای‎ Ll ایز‎ PA LL LI ای‎ PA ای ۴۹ ایز‎ PA ایز ۹۹ ارز‎ PA ایز ۴۹ ایز‎ PA ایز ۴۹ ایز‎ PA ای ۴۹ ایز‎ F ایز ۴۹ ایز‎ PA LL ایز‎ PA ا ۴۹ ای‎ LIT تی ۴۹ یز ۶۹ ا‎ PA از‎ PA ای‎ PA ایز ۴۹ ای‎ PA از‎ PA ای ۴ ای‎ PA ای‎ PA ای‎ PA ا( ۴ ای 5 لی‎ PA یز‎ 3-3 外部 関 数 MAMAY 


FOF frrr eE 61. 128, 120, 2) 
apage(2) 
PIIICIZ2T, TET 80, OO) 
apage(3) 

TUE CIS 1, 181, 248, 240, 4) 
for 1-8 to 15 


locate 38,2^print"vopaget و‎ )^ 


vpage(i?) 
SDPaCe=inkey$ 
next 


end 





第 3 一 32 図 apage,. vpage サン プル プロ グラ ム 


10 S a 
20—30 : 変数 宣言 
40 : 画面 モー ド を 512 xX512 の 16 色 モー ド に 設定 
0-80: パレット ユー ド 1 ユ 一 4 に 赤 。 黄 , 緑 , シア ン の 順に モッ ト 
00 シク ラフ イッ ク ペ ー ジ 0 うと すべ で て まお 60 鶴 に か る 
100: ア クティ ブ プペ ー ジ を ペー ジ 0 に 設定 
110: ペー ジ 0 に 赤 の 四角 形 を 描く 。 
120; アプ クティ ラペ ー ジ を ペー ジミ に 設定 
130 : ペー ジ 1 に 黄 の 四角 形 を 描く 。 
140: ア クティ ブ ペ ー ジ を ペー ジ 2 に 設定 
150 : ペー ジ 2 に 緑 の 四 角形 を 描く o 
160: ア クティ ブ ペ ー ジ を ペー ジ 3 に 設定 
170 : ペー ジ 3 に シア ン (水色 ) の 四角 形 を 描 て 。 
180 : 220 行 の next 間 を 16 回 (0 一 15) ルー プ す る 。 こ の 時 , i の 値 は 1 つ ず つ 増 加 す る 。 
190 : i の 値 を 画面 に vpage (i) の 形式 で 表示 する 。 
200 : vpage 関数 で 各 グ ラフ ィ ッ ク ペ ー ジ を ON, OFE させ る 。 こ の 値 は 0 一 15 ま で 1 つ ず 
つ 増 加 す る 。 
210 : 何 か キ ー が 押 き れる まで 待つ 。 
290 ` next X 


@ ク リッ ピン グ 
クリ ッ ピ ング と いう の は , 表示 範囲 より は み 出 し た 部 分 を 取り 去る こと を いい ます 。 こ の 表示 
RUH L خارہ رہ‎ window 関数 で 指定 きれ た 範囲 と な り ま す 。 
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NL as 3 KE 標準 関数 と 外部 関数 ای ۹ایا ایا ل۱‎ PRO Pi Rad ۹ ای یا‎ Pd PN POP END PROP Pd Pd ۷ از ۷ڑ‎ RO ula ۹ ای ۹ ای‎ PURO ۷ ايا ايا ايا يا اا ايا ايا يا ىا ۴۷ از‎ REIR ۹ ایز‎ ۷ MI 


[WINDOW] 


window (xl, yl, x2, y2) 


GL yl, x2 y2 

x1…… 表 示 指定 男 囲 の 左 x e 
yl…… 表 示 指 定男 囲 の 左 y 座標 
x2:--c36 B Ed DH 00 Aí x 座標 
y2…… 表 示 指 定男 囲 の 右 y 座標 







・ 人 各 引 数 は 画 ー ド や 設定 され た 実 画面 サイ ズ に より 。 0 一 511 あ る い は 0 一 ー1023 の 値 と な り ま 
ま 
° screen を 実行 する と , その 表示 画面 サイ ズ が 表示 範囲 し な り ま す 。 


第 3 一 33 図 は 画面 の 中 心から 半径 を 5 ずつ 増加 さる せ て 円 を 書く て プログラム で す が , 表示 範囲 を 
window 関数 で 変え て いま す の で , クリ ッ ピ ング と いう も の が どの よう な も の か , 実際 に 確か め て 
みて 下さ るい 。 


18 /* window test 

28 sereen 2, 9, 1,1 

38 palet(1,hsv(32,31,31)) 

40 palet(2,hsv(96,31,31)) 

50 window(1080,100,300, 300) 

68 print " window(100, 100,300,300)” 
70 box(100, 100, 300, 300,2) 

80 en() 

90 window (300, 200,500,500) 

100 print ” window (300, 200,500,500)” 
110 box(300, 200, 500, 500,2) 

120 en() 

130 window(0,0,767,511) 

140 print " window(8,0,767,511)" 

IS börs, 0, 767, 511,2) 

169 en() 

170 end 

180 func en() 
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e aai aa onean e as ri a 3-3 外部 関 数 MAMAH? 


199 int i 
200 for i=} to 58 
218 circle(384,256, ij*5, 1, 9, 369, 256) 


220 next 
230 endfunc 





第 3 一 33 図 window サン プル プロ グラ ム 


10: t ka 
20 : 画面 モー ド を 768X512 の 16 色 モー ド に 設定 

30 一 40・ フ パレ ッ ト コ ー ド 1, 2 に 鞭 , 水色 を モット 
50 : 表示 男 囲 の 左上 座標 を (100, 100) 右 下 座標 を (300, 300) に 指定 
60 : 表示 男 囲 を 画面 に 出力 
70 : 表示 範囲 を 水色 の 四角 で 描く 。 
80 : 定義 関数 en ( ) を 呼び 出し 実行 

90-160 : 表示 範囲 を 変え て 50~80 と 同じ 処理 を 行 ぅ 。 
180 : 定義 関数 en ) DEBÊTE 
190 : 変数 宣言 

200—220 : 座標 (384, 256) を 中 心 座標 と し, 半径 を 5 ずつ 増加 きせ な が ら 円 を 描く (半径 は 5 一 250 

まで )。 | 

230: 定義 関数 en ( ) ORTEZ., - جک رق ۲غ ۴ا موق رہ‎ die 5 A, 


Jm ۓ‎ Xi 


A68000 は 最大 1024 メ 1024 と いう 広 さ の グラ フィ ッ ク 画 面 を 持っ て いま Y. デン イス デレ 4 が 
768X512 ま で の 広 さ し か 表示 で きま せん 。 を そこ で 表示 画面 サイ ズ と 実 画面 サイ ズ と いう , Zo 
の 画面 サイ ズ が 存在 し ます 。 

例え ば , screen 0 , 0・・・ と し た 場合 

表示 画面 サイ ズ は 256X256 で , 実 画面 サイ ズ は 1024※X1024 と な り ま す 。 この 時 の 表示 画面 実 
画面 は , 第 3 一 34 図 の よう な 関係 に な っ て いま す 。 











V FIRM: as 3 E 標準 関数 と 外部 関数 TRU PU Pd PO PUMP PO PUR PO PORUM PU PA Dad P PEPPER PRO PU PO FO PU PU PU PUR PORUM POE PU PU PO PU RO PULLUM POLUM PAULUM ROO PU PU POL RUE E 








第 3 一 34 図 実際 に 画面 に 表示 で きる の は 斜線 部 分 の 範囲 て, この サイ ズ を 表示 画面 サイ ズ と いい ます 


ま た , 表示 画面 は 実 画面 の 中 を 1 ドッ ト ご と に , 自由 自 在 に スク ロー ル す る こと が 出来 ます 。 x 
クロ ー ル は 球面 スク ロー ル と いっ て 。 上 下 左 右 が つなが っ だ た も の で home 関数 に よっ て 行わ れ ま 
Fo 


【HOME】 


home (pag, x, y) 


char pag 
グラ フィ ッ ク ペ ー ジ 0 一 3 (画面 モー ド に より 決ま る ) 


面 の 実 画面 上 の 左上 x FERE 
面 の 実 画面 上 の 左上 y 座標 





*・x, Y は 画面 モー ド に より 0-511,。 また だ は 0 一 1023 ま C Of 
"Sereen を 実行 する と x yk, 0, ひ に 設定 きれ る 。 
第 3 -35 図 参照 
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R a A b PA ba PA ha PA had PA bal PA ba PA ad PAU had P had PA hal PA bad PU had PA bad PA bat PA Bal PAU bad PA ha PU bad PA ha PA ha PAU ba FA Da PA ha FA had FA had PA a PAU had PU had PA had PA hat PA ad PAA bad FF hat PA had PA had PA ha PA ba PA ha PA had PA ba PA l PA M PA PA A M A A d AAAA MAMAA d ARAMAMA MAMAMA MA d Ahi 3-3 外部 関 数 AMAN | 


表示 画面 


Oy 


È 


E 
団 


第 3 一 35 図 home 関数 に お ける 実 画面 と 表示 画面 の 関係 


第 3 一 37 図 は , 実 画面 1024X1024 を 4 等 分 (512X512) に し , 各 範 囲 を 第 3 -36[/]0 41 5 CEZ 
UL, ett ai TC ھا بت‎ ZX 2 u At S p Sp و‎ ACT TER BR LE ës 
X68000 の 球面 スク ロー ル を ぜひ 味わっ て みて 下 き い 。 


(1023, 1023) 





第 3 一 36 図 実 画面 の 色分け 


19 /* home test 
20 int x,y 


JU screen 1,98,1,1 
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40 
en 
09 
70 
80 
98 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


第 3 一 37 図 
10 : 
20 ・ 
287 


40 : 
90 — 60 : 
70-100 . 


110—140 : 


150 : 
160 : 


170 : 
180 : 
190 ; 


pu “E 関 数 と y. 部 関 数 LR ای ۴۹ کیا ۹ ارذ ۶۹ انا‎ FA نی ۴۹ ایز ۴۹ ای ۹ ا ۹ ای( ۴۹ ایا‎ PA ایز ۴۹ یز‎ PA ای‎ PA ایز‎ PA ایز ۴۷ ای ۹ یز ۴۹ ای‎ PA لی ۴۹ ایز‎ A لی ۴۹ ایز‎ PA Da ۴۹ ایز‎ PA ایز ۴۴ ای‎ A ای ۴۹ ایا ۹ ای ۴۹ ار‎ PA ای ۴۹ ایز‎ PA بی‎ P ای ۴۹ ایز‎ PA b PA ای‎ ۴٣ لی ۹ ای‎ PA ای‎ PAA ای ۹ لئ ۴۷ ایی‎ PA ای‎ FA ارز ۳۹ ایز‎ PA لئ‎ PA زی‎ PA یز‎ ۴٣ ای‎ PA ای‎ PA نی ۴۹ لی‎ ۴ MI 


window(0, 0, 1023, 1923) 
mouse (0) 
mouse(4) 
palet(1l,hsv(9, 31, 29) ) 
palet (2, hsv(32,31,20)) 
palet (3, hsv(64,31,20)) 
palet(4,hsv(96,31,20)) 
f111(0,0,501,511, 13 
fi1111512, 8, 1023, ST 2) 
FEFI48, 512,511, 1029757 
fi11(512,512, 1023, 1823, 4) 
while 1 

msposí(x, y) 

home(8,x. y) 

locate 0, 8:print"xz";x;" NE پور‎ 
endwhile 


end 


home サン プル プロ グラ ム 

スズ シド x 

変数 宣言 

画面 モー ド , 表示 画面 サイ ズ 512X512, 実 画面 サイ ズ 1024 × 1024, 色 65535 色 中 16 色 モー 
ド に 設定 

クリ ッ ピ ング エリ ア を 実 画面 サイ ズ に 設定 

マウ ス の 初期 化 及び マウ ス ボ タ ン の 設定 

ン ツア ッッ トド コー ド TEA E EE e OKE) papi 

実 画面 を 4 等 分 し た サイ ズ で , 第 3 一 36 図 の よう に 色分け する (4 ヶ所 を 各色 の 四角 
形 で 塗り つぶ す )。 

endwhile まで の 間 を 無限 ルー プ す る 。 

この プロ グラ ム で は マウ スカ ー ソ ル を 表示 し て いな い が , マウ スカ ー ン ソル の 指す 座標 
を X, Y に 読み 込む 。 

160 行 で 読み 込ん だ X, Y の 座標 を , 表示 画面 の 実 画面 上 の 左上 の 座標 し と する 。 

左上 座標 X, Y の 値 を 画面 上 に 出力 する 。 

150 行 に 戻る 。 


* プ ログ ラム を 終了 する と き は [break] キー を 押し て 下さ きい 。 
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外部 関 Sr HAMAKI‏ 3-3 ا ا یا ایا اا ایا ایا ابا P Rd Pi Pd PM ENEE AM P Pd Ru Ru Ru A‏ از یز RM RPM PU RM‏ یز لیا AM‏ ای ایک یآ ای ای ای ای ا ای ا لد 


(2) カラ ー コ ー ド 


A68000 て は 最大 65536 色 使用 する こと が で きま す 。 X- BASIC で は この 色 を 0 一 65535 の 数 字 
TRL, これ を カラ ー コ ー ド と 呼び ます 。 カ ラー コー ド は , た だ 単に 数 字 と 色 を 1 対 1 に 対応 る 
せ だ だ け て は な く , 色 の 並び と た と カラー コー ド に は ある 法則 が あり ます 。 こ の 色 と カ ラー ユー ド の 
関係 を 図 艇 する と , 次 の よう に な り ま す 。 

l6bit の カラ ー コ ユー ド は , 0 65535 ま で の 数 値 に な り ま す 。 


Dit15 14 13 12 11 10 9 8 7 ] bit0 


lr D ee LA CR داد ای‎ A uou 


eus NM L4 ess f E IS سو‎ id 


強 さ は 5bit で 32 段 階 強 る は 5bit で 32 段 階 強 さ る は 5bit で 32 段 階 

に 変え られ る に 変え られ る に 変え られ る 

e 反 人 全う ご と に この よう な ゼラ ト の 話 算 を し て に た ら 大 先 で す 。 メーBASIC で は 。 とこ 
の カラ ー コ ユー トド を 指定 する た め の 2 種類 の 関係 が 用 意 さ きれ て いま す 。 一 つ は 「RGB」 と いう 関数 
C, 光 の 三原 色 の 原理 で 色 を 決め る も の で す 。 


cl=rgb (r, g, b) 


It E پوس‎ s 

eeng 赤 成 分 の 強 る 

SA AKKI OTE Š 

青 成 分 の 強 る‏ سا وا 

数 値 が 大 きい は ほど 明る く な り ま す 。 


[RGB] 













PAR B ` (0 —65534 の 偶数 値 ) 





光 の 三原 色 と た いう の は , d, k, FT, この 混ざり 合い に よっ て 第 3 一 38 図 の よう な 色 に な り 
ます 。 例えば, 黄色 の カラ ー ユ ー ド を 求め た い 場合 は , 青 成分 を 0 に し て 赤 と 緑 の 成分 の 強 き を 
同じ 値 に し ます 。 この 値 を 大 きく すれ ば 明る く , 小さ くす れ ば 吐い 黄色 に な り ま す 。 ま た . この 
内 数 で は 輝度 成分 は 0 と な っ て いま す の で , 最も 明る い 純 粋 な 黄色 の カラ ー コ ー ド は 次 の よう に 
求め る こと が で きま す 。 
cl=rgb (31, 31, 0) 十 1 

まだ , 緑 が か っ た 黄色 で し た ら , その 度合 い に 応 じ て 緑 成分 も 多く する か , 赤 成 分 を 少な くす 
れ ば よい の で す 。 こ の よう に 「RGB」 関数 は , 絵の具 を 混ぜ 合わ せる よう な 感覚 で 色 を 求め る 
こと が で きま す 。 第 3 一 39 図 は , JF, d, 青 成分 の 強 さ と 輝度 情報 (0 また は 1) を キー ボー ド 
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第 3 一 38 図 光 の 三原 色 


か ら 入 力 する と ,「RGB」 関 数 を 使っ て カラ ー コ ユー ド を 求め , その 色 で 四角 形 を 描き ます 。 こ の プ 
ログ ラム を 実行 し て , どの 成分 と どの 成分 を 混ぜ る と どの よう な 色 に な る か を 実験 し て みて 下さ 


k 5 


19 
20 
30 
40 
50 
60 
70 
80 
90 
1 00 
110 


/* rgb test 

screen 1,3,1,1 

int red,green,blue,kido,cl 
input” 赤 成分 の 強 さ (O — 31 ) "jred 
input” 緑 成分 の 強 さ (O — 3 1) ";green 
input” 青 成分 の 強 さ (0—3 1) ";blue 
input BE ( O — 1) ";kido 
cl=rgb(red, green, blue)+kido 


print "Color code = ";cl 
fill(258,80,500,250,c1) 
end 


第 3 一 39 図 reb サン プル デ ロ グ ラム 


10 ・ 
2D ミ 
の U 
40 — 60 : 
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Ge à 
画面 モー ド を 512X512 ド ッ ト の 65536 色 モー ド に 設定 
変数 の 宣言 


各 成 分 の 強 る も キー ボー ド か ら 変 数 に 代入 する 。 











۲ ا(۴ یز ۹ ای ۴۹ ای ۷ ایا ۷ ایز ۷ نی ۴۹ ایز ای ۹ایا ۹ ایا ۴۹ ایز ۹ ایا ۹اا ۹ ایا ۹ ایا ای ۹ایا ۹ لیا ۹ ایا ۹ ایا ۹ ای ۹ ا ۷ط‎ DND ۹ یز‎ PP PP Pd P Pd ۹ ایز ای ارز‎ PURO PUMP PP 5 Pd ۶۷ P RN P PU 7۷ ا‎ RR ۴ نی‎ RO Pd ۷ ایز‎ RE ۴ ایز‎ RE RE REPRE っ 3-3 外部 関 数 MAMAM? 


70 : 輝度 情報 を キー ボー ド か ら 変 数 に 代入 する 。 
80: RGB 関数 を 使っ て , カラ ー コ ー ド を 求め る 。 
90 : 求め た カラ ー ュ ー ド を 画面 に 出力 す 5. ۱ 
100: カ ラー コー ド に よっ て 表 き る れる 色 で , 四角 形 を 塗り つぶ す 。 
ーー つめ の 関数 は 「HSV」 で す 。 こ れ は , 美術 の 授業 等 で 聞い た こと が ある と 思い ます が 「 色 
相 」, FREUE, 「 明 る さき 」 と いう 要素 か ら カ ラー コー ド を 求め る 関数 で す 。 


【HSV】 


cl-—hsv (hu, sa, va) 


int hu, sa, va 
60.—:19D 
Æ (0 —31) 
HS a (0-—3D 


カラ ー コ ー ト (0 一 65535 の 偶数 値 ) 





色相 と いう の は , 0 一 191 ま で の 数 字 を 第 3 一 40 図 の よ うな 色 の 配列 に 割り 当て た も の で す 。 
例え ば , 色相 で 32 と いう と 完全 な 黄色 で す が , 63 と な る と 黄色 の 中 で 。 最も 緑 に 近い 黄色 に な 
り ま す 。 同様 に , 191 は マゼンダ の 中 で 最も 赤 に 近い も の と な り ま す 。 





第 3 一 40 図 色相 
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1۶١ و‎ ۴ ۹ ES 3 SS 標準 関数 と 外部 関数 VM ایر ۳۷ زی ۷ یر یر‎ Pd P Rd Pd PURO Pd POP POOR بی‎ PU RUM RR PU Rd Pd Pd Pd ۹ ایا ایا‎ PU RR POUR DND PUN N DND نی 9با لغ‎ ۷ N Ru Ranu Ru Ru Ru ای‎ PR PERLE 


飽和 度 と いう の は , 原色 の 純度 を 表し ます 。 飽和 度 が 0 な ら ば , 色相 で 選ん だ 色 は 何 も 含 まれ 
て いな いこ と に な り , 31 な ら ば 色相 で 選ん だ 色 ORG) と な り ま す 。 従って, 飽和 度 の 数 値 が 多 
けれ ば 多い ほど 原色 に 近づき , 少な けれ ば 少な い ほ ど 折 っ ぽい 色 に な り ま す 。 こ の こと か ら , H 
系 統 の 色 (E, グレ ー, 黒 ) 等 の 場合 は 色相 は 関係 な く , 飽和 度 を 0 と し て 次 に 説明 する 明る る 
の み を か え ぇ て 作る さ ど な が で きま す 。 

明る さき は 。 同じ 色 の 中 で も 暗い 色 と 明 る い 色 が あり ます の で , その 度合 い を 決め る も の で す 。 
数 値 を 多く すれ ば 明る 〈 く , 少な くす れ ば 暗く な り ま す 。 

ir, この 関数 に よっ て 求め られ る カラ ー コ ユー ド に は , 輝度 情報 は 含ま れ て いな い の で て , 求め 
の か カタ ラー コー ド に ソコ で タク タス する か 。 も だ いか で コン トロ ー ル も て یں‎ 

この よう に 「HSV」 関数 は , カラ ー コ ー ド を 求め る 場合 きわ め て 感覚 的 に 色 を 選択 する こと が 
で きま す 。 第 3 一 41 図 は , fH, 飽和 度 , 明る き の 三 つも キーボード か ら 入 力 す る E, hsv 関数 を 
使っ て カラ ー コ ー ド を 求め , その 色 で 四角 形 を 描く プロ グラ ム で す 。 


/* hsv test 


int hu,sa,va,cl 


screen 1,3,1,1 

(Input ER (0—19 1) ";hu 
input” fU ME (0—3 1) "jsa 
inpat^Hó c (0-—31I) "va 
cl=hsv(hu, sa, va) 

print "Color code = "rei 
fill(250,8,500,250,cl) 


end 





第 3 一 41 図 hsv サ ンプ ルプ ログ ラム 
ھی ھا‎ E ا‎ ox 
20 : 変数 宣言 
30 : 画面 モー ド を 512X512 ド ッ ト の 65536 色 モー ド に する 。 

40 一 60 : 各 要 素 の 数 値 を キー ボー ド か ら 変 数 に 代入 する 。 

70: hsv 関数 を 使っ て カラ ー コ ー ド を 求め る 。 
80 : 求め た カラ ー コ ユー ド を 画面 に 出力 する 。 
90 : 求め た カラ ー コ ユー ド に よっ て 表 る れる 色 で , 四角 形 を 塗り つぶ す 。 


(3) パレ ッ ト コ ー ド 


X-BASIC で の 色 の 使用 の つい て は , 前 述 の よう に 65536 色 使 を る の で す が , 画面 モー ド に よっ 
て 65536 色 中 の 16 色 と か , 65536 色 中 の 256 色 と いう 制限 が あり ます 。 この 考え 方 は ユー ザー の 好き 
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な 16 色 , また は 256 色 だ け 取 り 出 し て 使う と い 2 も の で , 16 色 モー ド の 時 は 16 個 の 絵の具 の 入れ 物 
が , 256 色 モー ド の 時 は 256 個 の 絵の具 の 入れ 物 が 用 意 き N, それ ぞ れ 0 一 15, 0 一 255 の 番号 が 付 
られ て いま す 。 こ れ を パレ ッ ト コ ユー ド と いい ます 。 XX68000 で は , 色 を すべ て この パレ ッ ト ュ ー 
ド て 表現 し ます 。 従っ て , 65536 色 モー ド の 時 に は , パパ レッ トコ ユー ド は 0 一 65535 に ERT 
の パレ ッ ト コ ー ド に カラ ー コ ー ド を 割り 当て る 命令 が , 「PALET」 関数 で す 。 


[PALET] 














palet (p, c) 





Asa パレ ッ ト コ ユ コード 0 ~55 
SS カラ ー コ ユ コード 0 ~65535 







例え ば , パレ ッ ト コ ユー ド 0 を 赤色 に し た い ぃ 場合 
pakt (0, hsv (0, 317 317) 

と すれ ば 良い わけ で す 。 第 3 一 42 図 は 。 バト ゴー ニード た SER Oy 

5 CF, 6 に マゼンダ (hsv の 色相 の 順 ) に 設定 し , 四角 形 を 描き 何 か キ ー を 押し た 瞬間 に パレ ッ 
トド コー ド の 設定 を 最初 と 遂に する プロ グラ ム で す 。 | 





10 /* palet test 
29 int aka,ki,midori,shian,ao,mazenda, i 
30 str space 
40 screen 1,2,1,1 
98 akazhsv(0,31,31) 
DH kizhsv(32,31,31) 
78 midorizhsv(64.31,31) 
80 shian=hsv(96, 31, 31) 
90 ao=hsv(128, 31, 31) 
100 mazenda=hsv(169, 31,31) 
110 palet(1,aka) 
120 palet(2,ki) 
130 palet(3,midori) 
140 palet(4,shian) 
150 palet (5, ao) 
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160 palet(6,mazenda) 

170 for i=0 to 5 

180 fill(i*80,0,i*80+80,100,i+1) 
190 next 

200 space=inkey$() 

210 palet(1,mazenda) 

220 palet(2,ao) 

230 palet(3,shian) 


240 palet(4,midori) 
250 palet(5,ki) 

260 palet(6,aka) 
270 end 





第 3 一 42 図 palet サン プル プロ グラ ム 


i و کے‎ ud کہ‎ 
20~30 : 変数 宣言 
40 : 画面 モー ド を 512X512 ド ッ ト , 256 色 モー ド に 設定 する 。 
50 一 100 ` hsv 関数 を 使い , 各色 の カラ ー コ ー ド を セッ ト す る 。 
110-160 : パレ ッ ト コ ー ド 1 一 6 に 各色 の カラ ー コ ユ コード を セッ ト す る 。 
170—190 : 画面 圧 か ら パ レッ トコ ー ド 1 一 6 に 対す る 色 で , 四角 形 を 六 つ 描く 。 
200 : 何 か が キー が 押 き れる まで 待ち も ,。 キー が 押 き れ だ た ら 6 以下 の プロ グラ ム を 実行 す る 。 
210 テ 260 ) パウ ッ ド ヨー ドド 1 6 に , 110-160 行 で 設定 し た 逆 の ! 順 で カーラ ュー ド 史 セッ トチ 
る 。 
この プロ グラ ム で 注目 し て いた だ きだ い の が , 周 角 形 を 画面 に 描く て よこ ろ は 1 回 し が か が なく f 
か キー を 押し た 時 に は 200 行 以下 で 現在 描か れ て いる 四角 形 の 色 を palet 関数 で 変え た て いる だ け 
E کی‎ 
ここ で も う 一 つ , パパ レッ トコ ー ド に 関係 する 関数 を 説明 し て お きま す 。 それ は , "POINT, Bd 
数 で す 。 こ れ は グラ フィ ッ ク 画 面 上 の パレ ッ ト ュ コー ド を 求め る 関数 で す 。 


pa=point (x, y) 


Jt x. Y 
ا رھ‎ グラ フィ ッ ク 画 面 の X 座 標 window 関数 で , 
"n. ee グラ フィ ッ ク 画 面 の y p s 指定 され た 範囲 の み 


【POINT】 
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وا ا وھ وت پر و "PET‏ 





m 3 一 43 図 は , マウ ス を 左 ク リッ ク し だ 時 の 座標 の パレ ッ ト ユ コード を 求め る プロ グラ ム で す 。 
入力 する 時 は , 第 3 一 42 図 の 200 行 か ら 6 を 変更 し て , 入力 し て 下さ きい 。 終了 する 時 は 右 タ クリ ッ ク し 
23. 


/* point test 

int mx, my, x, y, bl, br, pa 

mouse (0) 

mouse(1) 

mouse (4) 

while br=0 
msstat (mx, my, bl, br) 
EE ISS fhenr pali 

endwhile 

mouse (0) 

end 

func pal () 


mspos(x,y) 


pa=point (x,y) 
locate 0,8 
print ER xr レン クア の パレ ッ ト コ ー ド は 、 


endfunc 





第 3 一 43 図 paint サ ンプ ルプ ログ ラム 
01: cue E 
20—30 : 変数 宣言 

40 : 画面 モー ド を 512 メ 512 ド ッ ト , 256 色 モー ド に 設定 する 。 

50-100 ` hsv 関数 を 使い 各色 の カラ ー コ ユー ド を 求め 変数 に 代入 する 。 

110 一 160 ' パ レット コー ド 1 ユ 1 一 6 に 各色 の カラ ー コ ユ コード を セッ ト す る 。 

170—190 : 画面 左 か が ら パ レッ トコ ユ コード 1 一 6 に 対す る 色 で , 四角 形 を 六 つ 描く 。 
200. x96 ya 
210 : 変数 宣言 
220: : マウ ス の 初期 化 
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230: マウ スカ ー ン ソル の 表示 
240: ソ フト キーボー ド の 表示 
250 : マウ ス の 右 ボ タン が 押さ る れる まで , 280 行 の endwhile 間 を ルー プ 
260: マ ウス の ボタ ン が 押 き る れ だ た か を 見 る 。 
270: も し 左 ボ タン が 押さ る れ て いた だ たら, 定義 関数 pal( ) íT o 
280 : while の 行 (250 行 ) に 戻る 。 
290 : 右 ボ タン が 押さ れる E. while 一 endwhile の ルー を 抜け , この 行 に き て マウ ス の 初 
期 化 を 行う 。 
300: プ ログ ラム の 終了 
310 : 定義 関数 pal ( ) DODERER 
320 : マウ スカ ー ソ ル の ある 座標 を , 変数 X, Y に 読み 込む 。 
330: HERE X, Y の ドッ ト の パレ ッ ト ユ コー ド を 求め , pa に 代入 する 。 
340—350 : p 4 の 値 を 画面 に 出力 する 。 
360 : 定義 関数 終了 宣言 。 こ の 関数 が 呼び 出る され た 行 の 次 の 行 (28017) に 戻る 。 


(4) 描画 

この 項 か ら は , 実際 に グラ フィ ッ ク 画 面 に 描画 を 行う 関数 群 を 説明 し て いき ます 。 
く 点 の 描画 > 

グラ フィ ッ ク 画 面 に 点 (F > F) を 表示 する 関数 が 「PSET」 関 数 で す 。 


【PSET】 


pset (x, y, pa) 


ibt x, yi. Da 


表示 する ドッ ト の 座標 — 39768-37767 C 

表示 する ドッ ト の yT 座 標 ー32708 一 3276/ ま で 
クリ ッ ピ ング エリ ア は , window 関数 で 指定 され た 範囲 

2 パ レッ トコ ー ド 画面 モー ド に より 0 ~65535 





弟 3 一 44 図 は , マウ ス を 左 ク リッ ク し た 時 の マウ スカ ー ソ ル が 指す 座標 の ドッ ト を 緑色 で 表示 
An の ライ すこ ゆ つ で り ド テック て エク ザッ ク し た まず ます ビタ デウス を 抽 の す り 9 や て 見 て 下 
に ba 


10 /* pset test 


20 int x,;,y,mx,my,br,bl,cl 
30 screen 1,2,1,1 
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ANI PU PM PU Pd PU Pa ROM PU WDEK DND RR PR RO END Pd RO NDNE ND NR NENNEN NR POR ۹ی ۹ی ای ای‎ Ru PURO Pd Pd PRO Rd PROF PR PRO ا‎ NR ای‎ ۷ AR 3 25 3 外部 関 数 MARMA: 


40 cl=hsv(64,31,31) 
50 palet(1,cl) 
60 mouse(9) 
70 mouse(1) 
80 mouse(4) 
90 while br=9 
100 msstat(mx,my,bl,br) 
110 if bl=-1 then psetting() 
120 endwhile 
1308 mouse(9) 
140 end 
150 func psetting() 
168 mspos(x,y) ` 
170 pset(x,y,1) 
188 endfunc 
第 3 一 44 図 pset サ ンプ ルプ ログ ラム 
10 : コメ ント 文 
20 : 変数 宣言 
30 : 画面 モー ド を 512X512 ド ッ ト の 256 色 モー ド に 設定 
40 : hsv 関数 で 緑色 の カラ ー コ ユー ド を 求め , 変数 に 代入 
50: パ レッ トコ ユ コード 1 に 先程 の カラ ー コ ユー ド を 求め , 変数 に 代入 
60-140 : 第 3 一 43 図 の 220 行 一 300 行 まで と 同じ 。 た だ し , 左 ク リッ ク ON の 時 に 呼び 出す 定義 
関数 は "psetting ( ) "で す 。 
150 : 定義 関数 psetting ( ) の 定義 宣言 
160 : マウ スカ ー ソ ツル の ある 座標 を Xx, y に 読み 込む 。 
170: EERX, Y に パレ ッ ト コ ユー ド 1 の ドッ ト を 表示 する 。 
180 : 定義 関数 終了 宣言 。 こ の 関数 が 呼び 出さ れ た 次 の 行 (12047) に 戻る 。 


〈 線 の 描画 > 


グラ フィ ッ ク 画 面 に 直線 を 引く 関数 が 「LINE」 関 数 で す 。 
【LINE】 


ine 01, 0d, x2, "va. 38) 





nb xl, Ls; X27 92, pale 
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PE رہ کر کا‎ X FERE 
y qp 始点 の y 座標 
See 終点 の X 座 標 
y 2…… 終 点 の 座標 
SARE メ パレット コー ド ( 線 の 色 ) 

ラオ ジス タオ イル‏ پل 


‘xl, yl, x2, y2 は , —32768— 32767 i£ C DÍE 

・ ク リッ ピン グ エ リ ア は window 関数 で 指定 され た 男 凍 

・Pa は 画面 モー ド に より 0 一 65535 

・ ラ イン スタ イル は 0 ~ 65535 (&H0000— & HFFFF) 

ライ ンス タイ ル と いう の は , 点線 や 破線 な ど を 16 ビ ッ ト の ビッ トバ パタ ー ン で 表し た も の で , E 
fg ol, 


GEREEST کا‎ LEE ELE AE h 


F F F F 
この パタ デン の 繰り 返し な の で て で, ライ ンス タイ ル は &HFFFF,』 点線 な ら ば , 
IX 0 ET 6 
e C C e 


DOT eHOOCC と よ す れ ば よい わけ で す 。 以下 に 考 な ライ ンス タオ イル の パタ ー ン を 示し ます の 
で 参考 に し て 下さ きい 。 


点線 &EHPPUO ee OHA 一 ーーーー ニ ーー 
= pi ا‎ EE EE E eh ES 

ZAR &HFF24 E و سر‎ 

ライ ンス タイ ル を 省略 し た 場合 は , 実線 (&HFFFF) と な り ま す 。 

第 3 一 45 図 は , 原点 (画面 上 の 左上 ) か ら マ ウス を 左 ク リッ ク し た と ころ の 座標 まで , 指定 の 


ライ ンス タイ ル で 黄色 の 線 を 引く 《 プ ログ ラム で す 。 ド ラッ グ す る と お も し ろ い と 思い ます 。 実行 
する と ライ ンス タイ ル を 聞い て くる の で , &HOOOOORETCAJAIUCT8060, 8729) »7315 
جک‎ T 5*3. 


/* line test 


int cl,ls,mx,my,bl,br,x,y 

screen 1,2,1,1 

clzhsv(32,31,31) 

palet(1,cl) 

(put ライ シス ダラ イル で ん お し で て の YNS UI 


mouse (0) 
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80 mouse(1) 

90 mouse(4) 

100 while br=0 

110 msstat (mx, my, bl, br) 
1 20 if bl=-1 then lin() 
130 endwhile 

140 mouse(9) 

150 end 

160 func lin() 

170 mspos(x, y) 

180 line(8,8,x,y,l,1s) 
190 endfunc 


第 3 一 45 図 line サン プル プロ グラ ム 


Lebe»‏ ات 

20 : 変数 宣言 

20 : 画面 モー ド を , 512X512 ド ッ ト の 256 色 モー ド に 設定 

40 ` hsv 関数 で 区 色 の カラ ー コ ユー ド を 求め , 変数 に 代入 する 。 

50: タ ャ レツ キモ ーー に 先程 の カシ アー ヨー ド で も の 下す る 5 

60- ラ イン スタ イル ぞ を キー ボー トド ト か ら 入 力 し 、 交 数 に 代入 する 。 

70-150 : 第 3 一 43 図 の 220 行 一 300 行 と 同じ 。 た だ し , 左 ク リッ ク し た 時 に 呼び 出さ れる 関数 

は Hn( ) 

160 : 定義 関数 lin ( ) の 定義 宣言 

170: マ ウス カー ソル の ある 座標 や, x2. y2 に 読み 込む 。 

180 : ライ ン の 始点 座標 (0, 0) Pb, 終点 座標 (xl. vil (マウ スカ ー ン ソル の 座標 ) ま 
C, 先程 入力 し た ライ ンス タイ ル で 次 色 の 線 を 引く 。 

190 : 定義 関数 終了 宣言 。 こ の 関数 が , 呼び 出さ れ た 次 の 行 (130 行 ) に 戻る 。 


< 四角 形 の 描画 > 


四角 形 に 関す る 関数 は 二 つ あ り , 一 つ は , BOX, も う 一 つが 「FILL」 で す 。 前 者 は 線 に よっ 
て 了 四角形 を 描く も の で , 後者 は 中 を 塗り つぶ し た 四角 形 を 描き ます 。 


[BOX] 


BOX (xl y x2, y2. paà, Te) 


jt. zl yi 32, vA. pa is 
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始点 x 座標 

始点 y 座標 

終点 x 座標 

終点 Y 座標 

2 パレ ッ ト コ ー ド (KROB) 
SA uA) 





° X1, yl, x2, y2 は 一 32768 一 32767 ま で の 値 

・ ク リッ ピン グ エ リ ア は window 関数 で , 指定 され た 範囲 
° pa は 画面 モー ド に より 0ー-65535 

・ ラ イン スタ イル は 0 一 65535 (&H0000— & HFFFF) 


シア ン (水色 ) の 四角 形 を , 指定 さき され た だ た ラ イン スタ イル で 描く も の で す 。 






/* box test 


19761.26 Ry /bl;bryx;, y 






SEFER TIZ I; 
cl=hsv(96,31, 31) 
58 palet(1,cl) 

Be -iInpul^ 24 27 204 Hia A UK eS a ds 


mouse (0) 













mouse (1) 






mouse (4) 
while br=0 
msstat(mx,my,bl,br) 
120 if bl=-1 then Kin) 


endwhile 













mouse (0) 






end 






160 func lin() 
170 mspos (x,y) 
180 ORE 0, x; v. 1, 1s) 






endfunc 


第 3 一 46 図 box サン プル プロ グラ ム 
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: (munani PU نی( ۴ ہہ‎ FU PA نر۱‎ PR Pd PU RR RR ۶( ایا ۴۹ ای‎ PL PERPE PUER RU PU PA ایز‎ P Vu RU ۹ ایز‎ PU PU ۴۹ ای‎ PA بیز ۴۹ ایز‎ PA از‎ RUE 8 ای‎ RERUM ۴۹ ای‎ FA نیا‎ RU PUE PA ای ۴۹ ایا ۹ ای ۹ ایا‎ FA A ایز‎ PAM ۴۹ EHE RE RE AMAR k 3-3 外部 関 数 :× 591 


BR グラ ム は , FBS 一 44 図 を ほとん と ど 同 じ で す 。, F buƏ5k5 یا درو‎ Baxter ES 
C. نال‎ 指定 の 色 で 塗り つぶ し た 四角 形 を 描く 「FILL」 関数 で す 。 
[FILL] 


Her yB موا‎ v2. pa) 


DE EE yL X5 Y2, pa 
始点 x 座標 
始点 Y 座標 
終点 x 座標 
終点 yY 座標 
パレット コー トド (塗り つぶ す 色 ) 





SEL: yls X2 Y2 は 一 82768 王 32767 ま で の 値 

・ ク リッ ピン グ エ リ ア は window 関数 で , 指定 され た 範囲 

* pa は 画面 モー ド に より 0 一 65535 

第 3 一 47 図 は , マウ ス を 左 ク リッ ク し た 時 の マウ スカ ー ン ソル の 座標 を 始点 と し , 縦 20 ド ッ ト , 
横 20 ド ッ ト の 塗り つぶ し た だ 四角形 を 描く プロ グラ ム で す 。 な お , 塗り つぶ し の 色 は , hsv 関数 の 飽 
和 度 を だ ん だ ん 増加 る せる こと に よっ て , 変化 きせ て いま す 。 | 


19 /* till test 

a8 inl cl,ux,my;bl,br.x,v 
38 int jJ 

40 screen 1,2,1,1 

50 mouse(9) 

60 mouse(1) 


70 mouse(4) 

80 while br=0 

90 usstat(mx,my,bl,br) 
100 if bl=-1 then fil() 
119 endwhile 

120 mouse (0) 


130 end 
140 func filO 
150 i-i*l 


145 





HM 第 3 Sr 標準 関数 と 外部 関数 SM PP FUR ۹ ای ۴۹ ا ۴۹ ای ۹ ایا ۹ ایا‎ ۴٣ ای ۴۹ ای ۴۹ ای ۴۹ ای ۴۹ ای ۴۳ ای ۴۹ ا ۴۹ ارز ۹ ایز ۴۹۹ ای ۴ ای ۴۹ ای ۴۴ ای ۴۹ ای ۴۹ ای ۴۹ بیز ۴۹ ایز‎ ۹۹ ROLE ۴۹ ای ۴۹ ایا ۴۹ ایر ۴۹ ایا ۴۹ ایر ۴۹ ار ۴۹ ایز 7۷ب ۴۹ ای ۴ ایز ۴۹ ای‎ POLITE ۴۹ ایا ۴۹ ار(‎ ۴۹ MR کی‎ RAM RR REOR 


170 (リウ サド then 1*1 

175 cl=hsv(0,i,31) 

180 palet(i,cl) 

190 mspos(x,y) 

200 FESEM LF y £295.19 


210 for j=0 to 100 
220 next 
230 ٤6 





第 3 一 47 図 サン プル プロ グラ ム 


Ek co HEX 
20 : 変数 宣言 
30 : 画面 モー ド を 512X512 ド ッ ト の 256 色 モー ド に 設定 
40—120 : 第 3 一 43 図 の 220 行 一 300 行 と 同じ 。 た だ し , 左 ク リッ ク し た 時 に 呼び 出さ きれ る 関数 
کا‎ Fleet (。) | 
130 : 定義 関数 の fillset ( ) の 定義 宣言 
140 : 変数 pa を 一 つ 増 加 き せる (この プロ グラ ム で は , 変数 pa を パレ ッ ト コ ー ド の 指定 , 
及び 飽和 度 の 値 と し て 使用 し て いる )。 
150: 5 し pa が 31 を 越え を る と エラ ー と な る の で ,( 飽 和 度 の 設定 範囲 は 0 —31) 31 を 越え 
KGST To, 
1603711601 7 70 7 سب سے‎ FRA., 
E en s= V ZE y ات یت‎ 6a に モッ ド ま る 。 
180: マ ウス カー ソル の 座標 を vi, y1 に 読み 込む 。 これ が 始点 座標 と な る 。 
190—200 KT, ylO481-201 072 AL C, x2。y2 に 代入 する 。 これが 終了 訂 標 と な る 。 
210 + 2 te » k zr— F pa C Wb > 5 U 221832 を 描く 。 
220—230 : 次 の 処理 の た め の 時 間 つ ぶし ( 空 ル ー プ )。 
240 : 定義 関数 終了 宣言 。 こ の 関数 が 呼び 出さ れ た 次 の 行 (100 行 ) に 戻る 。 


く 円 の 描画 ? 


グラ フィ ッ ク 画 面 に 円 を 描く 関数 が 「CIRCLE」 関 数 で す 。 


[CIRCLE] 


GIOCO UX.- Y. 。 pi S 6, Bo) 





It. X Y I. upa, S. 6. nv 


EN vivace 円 の 中 心 の x 座標 
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ERU Pd PA ارز‎ PU ایر(‎ Rd PROP PO ۴۹ ایا‎ PO PU ۴۹ ایا‎ PU PU PA Ru PU PURO ۴۹ ایا‎ PA ای‎ PU RM ۴۹ ایز ۴۹ ای‎ PAO ای ۴۹ ایز ۴۹ ایز‎ PRU ۴۹ ñu ۶ ایز‎ PA ایا ۴۹ ایز‎ PU ۴۹ ار(‎ PU )یز‎ I PULO ۴۹ ایز‎ PR ایز ۴۹ ایز ۴۹ ایا ۴۹ ایز‎ PA بیز‎ PA ای‎ RM Ruk 3-3 外部 関 数 MAMA: 


Seegen 円 の 中 心 の Y 座 標 

p ee ]1[ 0(0 `: 
pa-*w»bhka—F (MoE) 
و ات‎ 開始 角度 

6 سی‎ 終了 角度 

h ادا‎ rE 









E X, FS 32768-3760 +8 

・T は 0 一 32767 ま で の 値 

・ ク リッ ピン グ エ リ ア は window 関数 で 指定 きれ だ た 範囲 

° pa は 画面 モー ド に より 0ー-65535 ま で 

Ee は 3360 3607 -DE 

・hV は 0 = 32767 

開始 角度 S と 終了 角度 e と いう の は , 第 3 一 48 図 の よう な 関係 に な っ て いま す 。 





第 3 一 48 図 開始 角度 と 終了 角度 


IUDICES grt ws60se 3 (UIT DUTT. 27, SS も る の 人 に = 
— 360 の 値 を 使用 す る L, 図 の 円 の 中 心 0 か ら A と EB を 線 で 結ん だ 扇形 を 描く (こと が で きま す 。 
偏平 率 hv は 256 よ り 小 さけ れ ば 横長 の 椿 円 形 と な り , 256 よ り 大 きけ れ ば 縦長 の 椿 円 形 と な り 5 
ます 。 正 円 と する 場合 は , hv—256L Lid, し か し , ディ スプ レイ の 関係 上 , 真 円 に は な り ま せ 
76 

第 3 一 49 図 は , circle 関数 の 各 パ ラメ ー タ を キー ボー ド か ら 入 力 す る と, パラメータ どおり の 円 
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LEM a 3 I 標準 関数 と 外部 関数 TP PU POR Nd PU Pd FM PON RR ND d Pd Pd Pd Rd UR زی ۷ کی ۷ای ۹۷ نی‎ ۹ PU Fd PO NERVEN POPULO P ROLL ER RP RER ا ای‎ SERS RMR MAUR PUE کی ای‎ 7 


(Uh, 扇形 ) を 描き , 最後 に 入力 し た パラ メー タ を circle 関数 の 書式 で 出力 する も の で す 。 色 は 
100 行 で 黄色 に セッ ト し て あり ます 。 いろいろ な 円 を 描い て みて , 使い 方 を 覚え て 下 き い 。 


10 
20 
30 
40 
50 
60 
70 
80 
90 
199 
110 
120 
130 
140 


/* circle test 

int x,y,r,pa,s,e,hv,cl 
SPOS Terisi 
input" 中 心 X 座 標 "jx 
input” H DÒ Y pg B ";y 
input” ¥ {$ r "AE 
input" BH 28 Ê JE s ";s 
input” # T f$ e ";e 
input f E 3€ h v "hu 
cl=hsv(32, 31, 31) 
palet(1,cl) 
circle(x,y,r,l,s,e,hv) 
print cireleU x; u یں کس‎ BT 385^," hs ^) ^ 


end 


第 3 一 49 図 circle サン プル プロ グラ ム 


39 screen 2, 9, 1, 1 


第 3 一 50 図 変更 部 分 


15 


20 

30 
40 — 90 
100 


09 
20 、 


130 


وی وس و رت 

・ 変 数 宣言 

・ 画 面 モ ー ド を 512X512 ド ッ ト の 256 色 モー ド に 設定 

・ 各 パラ メー タ を キー ボー ド か ら 入 力 し , 各 変 数 に 代入 する 。 
・ hsv 関数 で 黄色 の カラ ー コ ユー ド を も セット す る 。 

パレ ッ ト コ ー ド 1 に 先程 の カラ ー コ ユー ド を セッ ト す る 。 
各 パ ラメ ー タ どおり の 黄色 の 円 を 描く 。 


: circle 関数 の 書式 で 画面 に 出力 する 。 この 時 , パパ レット コード の 部 分 は pa と し て 出力 


する 。 


まだ , 30 行 を 第 3 一 50 図 の よう に 変更 すれ ば , 768X512 ド ッ ト の 時 の 円 の 描写 が で き 語学 あこ 


ET. 
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512X512 の 時 と , 768X512 の 時 の 円 の 感じ を つか ん で 下 き い 。 











IRR RM ۹ ایا‎ RM RM ۹ ای ۷ لی ۹ ای ۹ کیا ۹ فی ۷ لیا ۹ نی ۷ ای ۹ ایا ۹ لی ۹ زیر ۹ نیز ۹ ایا ۹ لی ۹ ایا ۷ لی ۷ نی 7 کیا 7ای ۷ نیا 8 کیا ۹ ایا ۹ ایا ۹ ایا ۹ لن ۹ لیا ۹ لیا‎ PUER PER ۹ ایا لی‎ RE RUNE RM ۹ ایا کیا‎ 8 LR ای ۹ نی ۹ لیا ۹ لیا ۹ بط‎ PUER RM لی لی 1ای ای‎ NM NER زا ایز‎ 3-3 外部 関 数 MAHR} 


オイ ント > 


四角 形 を 塗り つぶ す 関 数 は fill 関数 で し た が , circle 関数 で 描い た 円 や , line 関数 を 使っ て 描い 
た 三角形 な ど を 塗り つぶ す 時 に 使用 する の が 「PAINT」 関数 で す 。 


【PAINT】 


| paint (x, y, pa) 


int^ax. Ya. 
Noe 塗り つぶ し た い 領 域内 の 任意 の 点 の x 座標 
ye # b — جم‎ LR نا‎ 600۴(0 IE SO رہ کر‎ FERE 
Da… パ レッ トコ ユ コード (塗り つぶ す 色 ) 







. X, Y は 一 32768 一 32767 ま で の 値 

・pa は 画面 モー ド に より , 0 一 65535 ま で 

可 域 と いう の は , ある 色 で 囲ま れ た 場所 で , その 中 の 点 (どこ で も よい ) の 座標 を 与え て や れ 
還 2* レ ント ラー ド て 指定 し だ 色 で 符 あつ ぶし て て く 入 ます 。 

第 3 一 51 図 は , 実行 きせ る と いろ いろ な パタ ー ン の 図形 が あら われ る の で , 塗り つぶ し た い 領 
کا با‎ マウス カー ソル を も っ いき 。 左 ク リッ ク す お る こと で 青色 に 塗り つぶ おぶ し ます 。 で の プア ョ 
FILT, 領域 と いう 意味 を 確認 し て みて 下さ い 。 


10 /* paint test 

28 Vogt で 1 Is; سو ہوںل سز‎ Dt وہ‎ o 

39 screen 1,2,1,1 

48 palet(1,hsv(0,31,31)) 

58 palet(2,hsv(128,31,31)) 

68 palet(3,hsv(64,31,31)) 

70 circle(50,1800,30,1,0,360,256) 
80 circle(150,100,30,1,0,350,256) 
90 box(20, 299, 100,300,1) 
100 box(320, 208, 400, 300,2) 
110 fill(189, 200,280, 300,1) 


120 111320, 208,3760, 3068, 1) 
138 fill(371,2800, 420,300,3) 
140 mouse (0) 
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1۸۷۴۶ as 3 Es 標準 関数 と 外部 関数 AHAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAKAMAMAMAMAMAMAMAN 


150 mouse(1) 
mouse(4) 
while br=0 
msstat(mx,my,bl,br) 


if bl=-1 then painting() 
6٤ 
mouse (0) 
end 
func painting () 
mspos (x,y) 
paint (x,y, 2) 


endfunc 





第 3 一 51 図 paint サ ンプ ルプ ログ ラム 


EE 
20 : 変数 宣言 
30 : 画面 モー ド を , 512X512 ド ッ ト の 256 色 モー ド に 設定 
20 ご 600 モン ママ レッ トー ヨー ド ユ ー3 に 。 35 Hi Wet Ev T Sr CU E paler Bow 
C, いさ な り hv 関数 を 書 に いて, カラ ー コ ユー ド を 指定 する こと も で きる 。 
70-130 : 各 サ ンプ ル 図 形 の 描画 | 
140—220 : 第 3 一 43 図 の 220 行 一 300 行 と 同じ 。 た だ し , E2 ہے رر‎ 2 し た 時 に 呼び 出さ れる 関数 
iX, painting ( ) 
230 : 定義 関数 painting ( ) の 定義 宣言 
240: マ ウス カー ソル の ある 座標 を X, Y に 読み 込む 。 
250・ マ ウス カー ソル の ある 座標 々 , Y が 含ま れ て いる 領域 内 を , パパ レッ トコ ユー ド 2 の 青 
CE b our. 
260 : 定義 関数 終了 宣言 。 こ の 関数 が 呼び 出さ きれ た 次 の 行 (200 行 ) に 戻る 。 


< 文字 の 描画 > 


文字 を 表示 で きる の は , テキ スト 画面 だ け で な 〈「SYMBOL」 関 数 を 使う こと で グラ フ ィ イッ ク 
画面 に も 表示 で きま す 。 
[SYMBOL] 


symbol.(x, y, st, b, v, mo, pa, 。 1) 


int X. v. pa 
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¿ununununununununununununununununununununuiununununununununununununununununununununununununuununununununununununuunuunuunuun, 3-3 外部 関数 MAMAA 


RS lr کر‎ x FERE 
ES y.… 始点 座標 
BEE e a … マ レッ トコ ー ト (文字 の 色 ) 
請 .x ylš—32768—327673-— OE 
o 'Da は 画面 モー ド に より , 0 一 65535 ま で 
-o ・ ク リッ ピン グ エ リ ア に つい て は , window 関数 で 指定 きれ た 範囲 





str st 
St… 表 示す る 文字 例 (文字 式 で も up) 
ーー 、 shar ` h, v, mo, an 
crc h…… 横 方 向 の 倍率 
See 縦 方 向 の 倍率 


mo… 文 字 フ ォ ン ト の 種類 
mo= 0@ t š 67 17 
mo 一 1 の と き H -16 
mo= 2 ® ¿£ š 124 
a n… 表 示 文字 列 の 回 転 角度 


an= 0)0 の と き 07 
an 三 1 の と き 90° 
an 三 2 ク の と き 180° 
an 三 3 の と き 2405 





第 3 一 52 図 は 。 始点 x。 Y 座標 。 表示 文字 列 。 縦横 の 倍率 文字 フォ ント の 種類 を 入力 する L. 
短 品 X,Y 座標 を 中 心 に 各回 転 角度 で , 表示 文字 列 を 緑色 で 描く プロ グラ ム で す 。 な お 。 こ の 時 
始点 X*。 座標 (回 転 の 中 心 と な る ) に 水色 で ドッ ト を 表示 し ます 。 


/* symbol test 
INE و و‎ 


SES 


char h,v.mo,an 





90 screen 1, 2 1, 1 

60 input” Hh y X FE BE": x 
70 input” hii کر‎ Y EE ”;y 
80 input" X;r X ^E 9l ”;s1 
90 jinput" 横 の 倍率 ”:h 
100 input RODE RE ”;y 
110 input” X ^£ FE "imo 
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IRURAN a 3 章 標準 関数 と 外部 関数 ۹ای نی ۴۹ ہی ۴۹ر یر‎ M Pd Rd ۳ یز ۷ ای ای ۷ ار ۹ی ۷ای‎ Ad Pd Pd POOR لی‎ RM R Ru RU ایا ایا ایا ایا ہا یا ایا ایا یا یا ایا ایا ایا ایا ایا ایا ایا‎ Ru Ru RM ا‎ Ru Ru Ru Ru RM ای ۹ئ 8 لی‎ ni 


120 09 

139 palet(1,hsv(64,31,31) ) 

140 palet(2,hsv(96,31.31)) 

158 pset(x,y,2) 

150 for i= to 3 

170 symbol(x,y,st,h,v,mo,l,an) 


180 an-an*l 


next 





第 3 一 52 図 symbol サ ンプ ルプ ログ ラム 


ルト 区‏ 00ا 
変数 宣言 .‏ : 20-40 
画面 モー ド を 512X512 ド ッ ト の 256 色 モー ド に 設定‏ : 50 
各 パ ラメ ー タ を キー ボー ド か ら 入 力 し , 各 変 数 に 代入 する 。‏ :60—110 
表示 文字 列 の 回 転 角度 の 初期 値 を 0 (0 ) に する 。‏ : 120 
パパ レッ ト ユ コー ド 1 に 緑色 を モッ ト‏ : 130 
h‏ > یی k G‏ سو Me ッ ト オ ー ド‏ 
始点 座標 々 , Y に 水色 の ドッ ト を 表示 する 。‏ : 150 
行 の next の 間 を 4 回 シープ する (0 一 3)。‏ 190 : 160 
入力 され た パラ メー タイ て 文字 を 緑色 で 描く 。 回転 角度 は an の 値 で 決め る 。‏ :170 
an の 値 を 一 つ 増 加 る せる 。‏ : 180 
next X‏ : 190 


< グラ フィ ッ ク 画 面 の 消去 > 


テキ スト 画面 を 「CLS」 と いう 命令 で 消去 で きる よう に , グラ フィ ッ ク 画 面 を 消去 する 関数 
「WIPE ( )」 が あり ます 。 こ の 関数 は ,。 アク ティ ブ グ ラフ ィ ッ ク ペ ー ジ (「apage」 関 数 で 指定 
され て いる ペー ジ ) に つい て 消去 を 行い ます 。 


【WIPE】 





8 


第 3 一 53 図 は , 画面 モー ド で グラ フィ ッ ク 画 面 を 4 ペー ジ 確 保 し て , 4 ペー ジ 各 々 を 違う 色 で 
塗り つぶ し た 後 , 何 か キ ー を 押す ご と に 0 ペー ジ 目 か ら 順 番 に , wipe 関数 を 使っ て 消去 し て いく 
0 ラム Fo 
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RnR سج‎ aA A aa a ي٦٦ و یں ں‎ +757 3-3 外部 関数 HAMA 


| 10 
20 
E" 
40 
58 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
218 
220 
230 
240 
250 
260 
270 
280 
290 


/* wipe test 
int pag, ipj 
str space,mesl,mes2 
mesl= これ は 、” 
Bess" dé — SÉ E ッ 
AIN str او مد سوا می سا نو تی ای‎ reg 
SUTEERT 17L, T] 
vpage(15) 
palet(1,hsv(80,31,31)) 
palet(2,hsv(32,31,31)) 
palet(3,hsv(84,31,31)) 
palet (4,hsv(96,31,31)) 
palet(5,hsv(9, 9, 9) ) 
for pag=9 to 3 
apage(3-pag) 
pa-pag*l 
fill(0,0,512,512, pa) 
symbol(100,250, nesI*pn(3-pag) *nes2, 1,1, 2, 5, 0) 
for j=Q to 08 
next 
next 
pag =0 
while pag<>4 


Space=inkey$ 
apage (pag) 
wipe 
pag-pag*l 
endwhile 
end 


第 3 一 53 図 wipe サン プル プロ グラ ム 


Zeck Se‏ == پا لا 
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1۹ گا‎ ۹ ۷ a 3 Er 標準 関数 と 外部 関数 AF Pd Fd Pod Fd PO FA ارز‎ ۷ PU PU PU PRU PU Pd PA ای‎ PA ایا‎ PU Ru PU PU PR PU ۳ ایز‎ PA لیا‎ PA ایا‎ PA ایا‎ RU RU PU PU ایا‎ PR Fd PA فی‎ ۴٣ ایز ۴۹ ایز ۴۹ یز ۴۹ ایز ۴۹ ایا ۴۹ ایز ۴۹ ای ۴۹ ای‎ P ا‎ PU کی ۴۹ ای ۴۹ ای ۹۹ کیا‎ PA کی‎ PA ایز‎ PA ارز‎ RR PA ایز ۹ ای‎ R) 


— 


| 


20—30 : 変数 宣 

40 一 50 : 文字 変数 に ,。 コメ ント の た だめ の 文字 デー タ を 代入 する 。 
60 : 文字 型 の 配列 を 四 つ 確 保 し 。 0, 1, 2, 3 と いう 文字 デー タ を 代入 する 。 

Deet AT ہو‎ topas e s w NI "4 >) 
70 : 画面 モー ド を 512X512 ド ッ ト の 256 色 モー ド に 設定 
こ ご 4 て グラ アイ ッ ク ペ ー ダ は 0—304—£2229 M 0 0 ます 5 

80: vpage 関数 で 0 — 3 ペー ジ す べ で て を 表示 ON に 設定 する 。 

90 一 130 パレット コー ド 1~5 に 各 カ ラー コー ド を も セッ ト す る 。 
140 : 210 行 の next の 間 を 4 回 ルー プ す る 。 こ の 時 , pag は 0 一 3 ま て 変化 する 。 
150 :apage 関数 で アク ティ プペ ー ジ の 設定 を 行う 。 こ の 場合 。3,.2。 1, 0 ペー ジ の 順 

で 設定 され る 。 
160 1: レッ トコ ユ コード pa ET, 2。 3, 4 の 順 て 談 定 ずる 。 
170 : 512x512 の 範囲 を pa で 姜 き れる パパ レッド トコ ー ド で 交 り つ ポ す 。 
180: 「symbol」 Me eae ッ セ ー ジ を 描く 。 
190—200 : 時 間 調 整 の た め の 空 ルー フ 
210 : next X 
220・ ペ ー ジ を 表す 変数 pag を 0 に する 。 
200 :pag が 3 より 大 きく な る まで , 280 行 の endwhile 間 を ルー プ 
240 : 何 が キー が 押さ れる まで 待つ 。 押 きれ た だ た ら , 次 の 行 へ 進む 。 
250 dpape ACT Z q 2 ページ の 読 定子 行 う 。 こ の 場合 、 0 う 1, 2; 3 ペー ジ の 順 
で 設定 され る 。 

260 ミ ゲ ダグ デル オダ グラ ジィ シック グイ ロン CO まき 香 送 。 
270 : ペー ジ を 表す pag の 値 を 1 増加 る せる 。 
280 ` endwhile 文 。230 行 に 戻る 。 


(5) その 他 の 関数 


R> 


画面 上 に 描い た グラ フィ ッ ク を 違う 場所 に コピ ー し だ た だ り , ディ スク に 保存 し だ りす る だ め の 関 
数 が get L put で す 。 get と put を 使用 する 場合 に は , あら か じ め 配 列 を 用 意 し て お き , その 配列 
を 使っ て デー タ を を やりとり し ます 。 考え 方 と し て は , get で デー タ を 配列 に 読み 込み , put で 配列 
の デー タ を グラ フィ ッ ク 画 面 に 書き 込む よう に な り ま す 。 従っ て , この 配列 の デー タ を fwrite BÀ 
数 を 使っ て ディ スク に 書き 込め ゆば, グラ フィ ッ ク 画 面 の 保存 が 可能 に な り ま す 。 

【GET】 


—Ç get (XL- yl, x2, y2, na) 


mb xL xL. € 
x1… 始 点 の x 座 標 。y1… 始 点 の y 座標 , x2… 終 点 の x 座 標 。y2… 終 点 の 座標 
na… 数 値 型 の 一 次 元 配 列 名 (パタ ー ン デー タ を 格納 する ) 






e xl, yl, x2, y2 は , window 関数 で 指定 され た 男 囲 内 の 値 を 取る こと が で きま す 。 
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ORR RUT RR UR RU RUR URI RU RUP ونس‎ RR پت سس‎ 0 6٘۱٣9ت؟۳,ت٢00000‎ UR UR 3-3 外部 関 数 MRMRI 


・ 配列 na へ の ドッ ト パ プ パター ン の 読み 込み か た は (xl, vii, (x1 十 1 yD, … (x2, yD, (xl, yl 
:ر000‎ dde 19, 0 R2, y2) な りき ま ぼ 。 

まだ, 画面 モー ド に よっ て , 配列 に 読み 込む デー タ が 変化 し ます 。 

実 画面 1024 × 1024, 16 色 モー ド の 場合 は , 一 つの ドッ ト を 4 ビッ ト で 表現 し て いる の で , 読み 
込む 配列 の 型 に よっ て 次 の よう に な り ま す 。 | 


e char 型 配列 ーー ー つ の 配列 の 中 に 2 ドッ ト の デー タ が 入る 
int fei. eese ーー つの 配列 の 中 に 8 ドッ ト の デー タ が 入る 
° float 型 配 列 ……… ト ドド … バ | ー つ の 配列 の 中 に 16 ド ッ ト の デー タ が 入る 


(149, 149) 





第 3 一 54 図 画面 上 に 四角 の グラ フィ ッ ク を 描く 

例え ば , 第 3 一 54 図 の 領域 の パタ ー ン を 読み 込む 場合 . ド ッ F 数 は 縦 100 ド ッ ト ※ 横 100 ド ッ ト = 
10000 ド ッ ト 分 の 配列 を 用 意 す る こと が 必要 で す 。 こ の 時 

e char 型 な ら 100007 2 = 5000 ヶ 

"mt 型 だ な ら 。 10000 プ 8 ニ = 625 ヶ 

・float 型 な ら 10000/16— 313^» 
の 配列 を 用 意 し ます 。 

実 画面 512X512, 16 色 モー ド の 場合 は 1024 x 1024, 16 色 モー ド と 同じ で す が , apage 関数 で 指定 
され だ ペー ジ に 対し て の み 有 効 で す 。 

実 画面 512X512, 256 色 モー ド の 場合 は 1 ドッ ト を 1 バイ ト で 表現 し て い る ので, 


e char Jil مس‎ ー つ の 配列 の 中 に 1 ドッ ト の デー タ が 入る 
int لا‎ eene ー つ の 配列 の 中 に 4 ドッ ト の デー タ が 入る 
e float Den ー つ の 配列 の 中 に 8 ドッ ト の デー タ が 入る 


この 時 も apage 関数 で 指定 され た ペー ジ に 対し て の み 有 効 で す 。 

21101512 × 512 65536 色 モー ド の 場合 は 1 ドッ ト を 2 バイ ト で 表現 し て いる の て. 
rehat کی یر سے‎ ー つ の 配列 の 中 に 1 ドッ ト の デー タ が 入る 

° int X! GC S TN ー つ の 配列 の 中 に 2 E9 ト の デー タ が 入る 
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{RMR as 3 CR 標準 関 数 と 外部 関数 PU Pd PU FA لیا‎ PU Pd PU ۴۹ ای‎ PU PU PU PU PURO PUE PA ایز ۴۹ ای ۴۹ ای ۴۹ ایز ۴۹ ای ۴۹ ای‎ PUR ۴۹ ن4ی ۴۹ ا ۴۹ ایز ۴۹ ایز ۴۴ یز ۴۹ ارز ۴۹ ای ۹ ای ۴۹ ایز ۴۹ ای ۴۹ ای ۴۹ ای ۴۹ ای‎ PA ارز‎ PA یز ۴۹ ایز ۹۹ ایز ۴۹ ای‎ ۴۹ RO ۴۹ ای ۴۹ ای‎ RMR ار‎ PA ایا ۴۹ ای‎ PA او( ۹ ای ۴۴ ا‎ PA HEPA 


e float W! ..................... ー つ の 配列 の 中 に 4 ドッ ト の デー タ が 入る 
10000 ド ッ ト の 領域 を char 型 配列 に 読み 込む た め ゆめ に は , この 画面 モー ド の 場合 に は , 10000x 
2 三 20000 ヶ の 配列 を 用 意 する 必要 が ある と いう こと で す 。 
get 関数 で 読み 込ん を だ デー タ を 画面 上 に 表示 する 関数 が , put 関数 で す 。 


[PUT] 


J xL Xi 2 
X]l--- 始点 の 座標 
ooo 始点 の Y 座標 
X doe 終点 の x 座標 
y 2 …… 終点 の Y 座標 
۰ 数 値 型 の 一 次 元 配列 名 (パタ ー ン デー タ の 入っ た 配列 名 ) 








exl, yl, x2, y2 は window 関数 で 指定 され た 範囲 内 の 値 

・ 配 列 内 の デー タ 構 造 は get 関数 と 同じ 

第 3 一 55 図 の アプ ログ ラム は , 画面 に 二 つ の 枠 が 指定 され , 左 の 枠 の 中 で マウ ス の 左 ボ タン を 押 
す と 水色 の 点 が 描か われ ます の で , ドラ ッ グ し た だ たり し て 適当 な 絵 を 描き ます 。 KI, 右 ボ タン を 押 
す と 右側 の 枠 の 中 に 今 描 いた 絵 が コピ ー さ れる と 同時 に , "gamen.dat” と いう ファ イル 名 で ディ 
スス 和み に セー ズ る も る 終 上 し ます 。 KE 條 ユー96 図 の デコ ログ ラム を 実行 する と, ディ スグ から う 
gamen. dat" を 読み 込ん で , 画面 に 先程 描い た 絵 を 出力 し ます 。 





18 /* put & get test 

40 int mx,my,bl,br 

30 dim int gdata(12613) 

40 screen 1,2,1,1 

50 mouse (0) 

60 mouse(1) 

70 mouse(4) 

88 palet(1,hsv(96,31,31)) 

90 palet(2,hsv(9, 9, 31) ) 
100 box(0,100,250,300,2) 
110 box(261,100,511,300,2) 
120 msarea(0,100,250,300) 
130 while br=0 
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E PA b PA a PA ایا‎ FA ایز‎ PA ایا‎ PA ایا‎ PU PA ایا‎ PRU PA ای‎ PU PA ای‎ PUMP Pd PU ۴۹ ایا‎ PU PU PRU Ud Pd PA ایز‎ PA ایا‎ POP PRU PA ار‎ ۹١ ایا‎ PRU PU ۴۹ ای‎ PU PU PROP PU Pd PRU PURO PA ایز‎ PA ارز‎ PA ای‎ PU ای‎ PA POOR PRO PURO RO ۴۷ ای‎ PUERO ۴٣ ایز‎ PA ایز‎ PRO PA ایا‎ PA ای‎ PA ای‎ PA ای‎ ۴ u PA È 3-3 外部 関 数 HAWAA 


140 msstat(mx,my,bl,br) 
150 if blz-1 then psetting() 
168 endwhile 

170 copy O 

180 mouse (0) 

190 end 

200 func psetting() 

210 int x,y 

220 mspos(x, y) 

230 pset(x, y, 1) 

240 endfunc 

250 func copy O 





260 int fn 

270 get (0,100,250,300, gdata ) 
280 put(261,109,511,309, gdata ) 
290 fn=fopen(”gamen.dat”,”c”) 
300 fwrite(gdata,12613, fn) 

318 fclose(fn) 


320 endfunc 


第 3 一 55 図 put, get サン プル プロ グラ ム 1 


0 に な メジ シト 文 
20 : 変数 宣言 
30 : 配列 宣言 
40 : 画面 モー ド 512x512, 256 色 モー ド に 設定 
50: マ ウス の 初期 化 
60: マ ウス カー ン ソル の 表示 
70 : 右 ボ タン の 開放 
80 一 90 : パパ レッ トコ ー ド 1, 2 に 水色 , 白色 を セッ ト 
100 : 左側 の 白 枠 を 描く 。 
110 : 右側 の 白 枠 を 描く o 
120: マリウス カー ソル の 移動 範囲 を 左側 の 白 枠 の 中 だ け に 設定 する 。 
130: マウ ス の 右 ボ タン が 押 る れる まで , 160 行 まで の 間 を ルー プ す る 。 
140: マウ ス の ボタ ン が 押 き れ た か を 検出 する 。 
150: も し 左 ボ タン が 押 き る れ た な ら ば , 定義 関数 psetting ( ) へ 行 〈。 
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(Rumu! = 3 T 


160 


TIU. 
180 : 
・ 終 了 

: 定義 関数 psetting ( ) の 定義 宣言 


190 
200 


210, 
220. 
: 読み 込ん だ 座標 x, Y に 水色 の ドッ ト を 描く 。 


230 


240 : 
20 pe 
260 ・ 
・ 左 白 枠 内 の パタ ー ン を 配列 gdata に 読み 込む 。 こ の 場合 , 画面 モー ド か ら 1 ド ッ ト は 


270 


280 


2072 
300 : 
310 : 
SE 


e AE PR 数 と 外部 関 数 ایر ۳۷ زی ۷ یر‎ Pd PUO PU RU RULER URF RR ایر‎ ۴۷ PU Ad MRR RU POOR Ru RM RMR MR Ru R RR d DND ND ND ایا‎ PU DND DN RMR UREN RMA ا‎ Ru nu RE REM 


・130 行 へ 戻る 。 


用 ボ タン が 押 き れ た だ た ら 6。 この 行 に き て 定義 関数 copy: ( ) を 呼び 出す 。 
マウ ス の 初期 化 


変数 宜 言 (ロー カル ) 


マウ スカ ー ン ソル の 座標 を X, y に 読み 込む 。 


定義 関数 終了 宣言 。 呼 ば れ た 次 の 行 へ 戻る 。 (160 行 ) 
定義 関数 copy ( ) の 定義 宣言 


変数 宣言 (ロー カル ) 


1 バイ ト で 表現 で き ,。 和 白 要 内 の ドッ ト 総 数 は 縦 201x 横 251= ニ 50451 ド ッ ト に な り ま す 。 
gdata は , int 型 の 配列 な の で , 一 つの 配列 の 中 に 4 ドッ ト 分 を 格納 で きる の で , 50451 
グ 4 王 12613 ヶ 分 の 配列 を と ば よい こと に な り ま す 。 


: 右 白 枠 内 の 位置 に 配列 gdata に 格納 きれ て いる > ター ン を 描く 。 


"samen. "dat" E^ テイ Es 

配列 gdata の 値 を "gamen. dat' と いう ファ イル に 書き 込む 。 
?oumen.'dat" と いう プ テ イ ウン を な クローズ ずる 

定義 関数 終了 宣言 。 呼 ば れ た 次 の 行 (180 行 ) に 戻る 。 


/* put & get test 2 
int fn 

dim int gdata(12613) 
screen 1,2,1,1 
palet(1,hsv(96,31,31)) 
palet(2,hsv(9, 9, 31)) 


fnz-fopen("gamen.dat", "r") 
fread(gdata, 12613, fn) 
fclose(fn) 

put (0, 100,250, 300, gdata) 


end 





第 3 —56[] put & get サ ンプ ルプ ログ ラム 2 


10 ・ 
SÉ, 


108 


k d‏ دی رت 


変数 宣言 











AF Rd Pd Fd PM PA ایا‎ PU PA ایز‎ PU PU ای‎ FA ایا‎ PRU RU Rd PA ایا‎ Pd Fd Pd PO Pd PROP POP PU PUO RUP PU PA ایز‎ PA ای ۹۴ ایا‎ RO RN RV PA ایز ۴۹ ایز‎ PA ای‎ ۹۹ a PA ایا ۴۹ یا ۴۹ ایا ۴۹ ایز‎ PU Ru Ru R RU ۴۹ ایا‎ u Ru Ru Ra R PE ba PA ایا‎ Fa Ru RM Ru Ra Ru FL 3- 3 外部 関 数 MAMA 


30 : 配列 宣言 
40 : 画面 モー ド を 512 X512, 256 色 モー ド に 設定 
50 一 60* パ レッ トコ ー ド 1, 2 に 水色 を セッ ト 
70 : "gamen, dat” と いう ファ イル を 読み 込み 専用 で オー プン する 。 
80 : 配列 gdata に "gamen. dat' と いう ファ イル の 内 容 を 書き 込む 。 
90 gamen: dae と いう フウ テイ ルク 一 ズ サ 55 
100 : 配列 gdata に 読み 込ま れ た だ た パターン を 画面 に 描く 。 
"graph. fnc” の 最後 の 関数 が , contrast 関数 で す 。 こ の 関数 は , 画面 の 明る る を コン トロ ー ル 
する 関数 で す 。 
[CONTRAST] 


contrasti (i) 


int キー1 
(zz (暗い) で 一 15 (明る いら) 





・0 一 15 ま で の 16 有 段階 で , 画面 の 明る る を を コ ント ロー ル で きま す 。 
第 3 一 57 図 は , 画面 に 円 を 描き , contrast 関数 で 徐々 に 画面 を 暗く し , fuf b 見 を な く な っ た 状 
明 て 円 の 中 を 塗り つぶ し , 徐々 に 画面 を 明る 《 し て いく デ ョ グラ ム で す 。-: 


10 /* contrast test 
State) 

30 screen 1,2,1,1 

40 palet(1,hsv(16,31,31)) 
58 palet(2,hsv(96, 31, 31) ) 
68 circle(256, 256, 159, 1 , 9, 369, 256 ) 
70 for i=9 to 15 

80 contrast (15-1) 

90 for j=9 to 500 
100 next 
110 next 
120 paint(256, 256, 2 ) 
130 for i=0 to 15 
140 contrast(@+i) 
150 for j=0 to 500 


159 


/۴ ۹ط‎ 第 3 E 標準 関数 と 外部 関数 ۷ ۹نیا ۹ لا‎ Pd PU PIN PP id RM PU P P PU PA ارا‎ Pd PRO PU Pad PRU PU Pd PRO PO Ru Ru Ru Pd PR یا ایا ایا‎ PN A ROM P PR Pd Pad ا‎ RP PR REPERI 


150 next 
170 next 


188 end 





第 3 一 57 図 contrast サン プル プロ グラ ム 


MISSES 
20 : 変数 宣言 
30 : 画面 モー ド を 512 X512, 256 色 モー ド に 設定 
40 一 50・ フ パンセ ッ ト コ ー ド 1 。 2 に 鞭 色 。 水色 を セッ ト 
60・ 画 面 の 中 央 に 半径 150 の 黄色 の 円 を 描く 
70-110 : for—next 間 を ルー プ 。i の 値 は 0 ー15 に 変化 する 。 この 時 , contrast 関数 の 引数 は 
ker Ee Lo も の を 5 B db 0 と 変化 する 。90 一 100 行 の for~ next 
ルー プ は , 空 ル ー プ で, だ ん だ ん 暗く する た め に 時 間 を 稼い で いる だ け で す 。 
120 : 円 の 中 を 水色 で 塗り つぶ す 。 こ の 処理 は 画面 が 暗い た め わ か 5 XA 
130—140 : 70 一 110 の 処理 の 逆 で , contrast 関数 の 引数 を 0, 1, 2, 3…… 5239595 S だ 
ん だ ん 画面 を 明る くし て いく 。 





X68000 に と っ て マウ ス は , ユー ザー と の 大 切な イ + تس‎ S de RE8 
に も マツ ウス を 効果 的 に 利用 する た め の 関 数 群 が 用 意 き され て いま す 。 マ ウス を 使用 する 場合 は 。 グ 
フフ イッ ク を 使う 時 と 同じ よう に マウ ス を 使う た ゅ の 準備 が 必要 で す 。 こ の 時 , マウ ス の 各 初期 
設定 を 行う 関数 が 「MOUSE」 関 数 で す 。 


【MOUSE】 


int i (ji…0 一 4) 

i=0 の 時 マウ ス の 初期 化 を 行う 。 

1-1 の 時 マウ スカ ー ソ ル を 表示 する 。 

i=2 の 時 マウ スカ ー ソ ル を 消す 。 

1—3 の 時 マウ ス の 状態 を 返す 。 

1 三 4 の 時 ツ フ トキ ー ボ ー ド の 表示 を 禁止 し , 右 ボ タン を 開放 する 。 


int m 
引数 i が 3 以外 の 場合 , 通常 0 が 返る 。 エラ ー の 場合 は , 一 1 が 返る 。 引 数 1 が 3 
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の 時 は , マウ スカ ー ソ ル が 表示 され て いれ ば ー 1 が 返り , 表示 し て いな けれ ば 0 


が 返る 。 





マウ ス は , X-BASIC 起動 時 や mouse (0) ë に よっ て 初期 化 き れ た だ た 時には, 右 ボ タン を 1 度 ク 
リッ ク す る と マツ ウス カー ソル が 表示 きれ, も う 一 度 ク リッ ク す る と ソフ トキ ー ボ ー ド が 表示 きれ 
る よう に 設定 され て いま す 。 従 っ て , 右 ボ タン を 使用 する プロ グラ ム を 作成 する 場合 に は , mouse 
(4) を 実行 し て , ソフト キー ボー ド が 表示 る れ な いよ うに する 必要 が あり ます 。 

マツ スカー ソル は , 通常 表示 画面 サイ ズ の 範囲 内 を 移動 する こと が 出来 ます が , ある 範囲 内 だ 
け を 移動 可能 な 状態 に する こと が 出来 ます 。 

この マウ ワ ス の 移動 転 囲 を 設定 する 関数 が 「MSAREA」 関 数 で す 。 


【MSAREA】 


msarea (xl, yl, x2, y2) 


int xl, gies, y? 

x 1.٠٠.72 (0 00ا‎ E. X FERE 
y 1 … 移 動 男 囲 左上 Y 座 標 
x 2 … 移 動 男 囲 右 下 X 座標 
y 2 … 移 動 男 囲 右 下 Y 座標 










移動 転 囲 の 最大 値 は , 表示 画面 サイ ズ と な り ま す 。 

第 3 一 58 図 は , 実行 きせ る と マウ スカ ー ソ ル が 表示 され , 左上 の 座標 (0, 0) か 6 左 ク リッ 
ク し た と ころ の 座標 に 其 色 の 四角 形 を 描き , その 四角形 の 中 が マウ ス の 移動 範囲 し な る プロ グラ 
AC Ts 


/* msarea test 


int. &x, wy, bl.br,dx. dy 
screen 2,0,1,1 
mouse (0) 
mouse (1) 
mouse (4) 
palet(9,hsv(9, 9, 9) ) 
palet(t,; hev(32, 31, 81 ) ) 
while br=0 
100 msstat(mx,my,bl,br) 
110 if bl=-1 then mst() 
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120 endwhile 
130 mouse (0) 


140 end 

150 func mst() 

150 int x,y 

170 mspos (x,y) 

180 if x=0 then x-1 
190 if y=0 then y=1 
200 msarea(0,0, x,y) 
210 box(0,0,dx,dy, 0) 
220 box(0,0,x,y, 1) 
230 dx=x:dy=y 


240 endfunc 





第 3 一 58 図 msarea サン プル プロ グラ ム 
l0; メジ ンド 次 
20 : 変数 宣言 
30 : 画面 モー ド を 768X512 の 16 色 モー ド に 設定 
40: : マウ ス の 初期 化 
50: マウ スカ ー ソ ツル を 表示 する 
60 : マ ウス の 右 ボ タン の 開放 
70 : パレット コー ド 0 に 黒 (透明 ) を モット 
80:^7* v» h2—FICEG&GPG»L 
90: マ ウス の 右 ボ タン が 押さ れる まで 120 行 まで の 間 を ルー プ 
100: マ ウス の ボタ ン が 押さ きれ た か を 見 る 
110・ も し , 左 ボ タン が 押 き され だ た な ら 定 義 関数 mst ( ) を 呼び 出す 
120 : 90 行 へ 戻る 
130: マウ ス の 右 ボ タン が 押さ れる と この 行 に き て , マウ ス を 初期 化す る 
140 : 終了 
150 : 定義 関数 mst ( ) の 定義 宣言 
160 : 変数 宣言 
170: マウ ワウ ス カー ソル の 座標 を 変数 x, y に 読み 込む 
180: も し , 文 座標 が 0 で あれ ば 変数 x は 。 1 と する 
190. 6 し , Y 座 標 が 0 で あれ ば 変数 Y は, 1 と する 
200 : マウ ス の 移動 範囲 を (0, 0) か ら 6 (x, Y) の 範囲 に 設定 する 
210 : 前 回 の 移動 範囲 を 表す 四角 形 を 消す 
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220 : HERES ANT O 2 FZ Ju BH U w E O y 76 FE 2° $8 4 
230: 変数 X, Y の 値 を 変数 dx, dy に 代入 する 
240 : 定義 関数 終了 宣言 呼ば れ た 次 の 行 に 戻る (12017) 


マツ ウス が 初期 化 る きれ て , マウ スカ ー ソ ル を 表示 る せ た 場 合 、 マウ スカ ー ソ ル の 位置 は 画面 の 左 
上 に 表示 る れ ま す 。 マ ウス カー ソル は , マ ウス を 動か せ ば その 移動 量 に 応じ て 画面 の 中 を 自由 自在 
に 動き ます が , マウ ス を 動か る な く て も 「SETMSPOS」 関 数 に よっ て 移動 きせ る こと も 出来 ます 。 


【SETMSPOS】 


setmspos (X, y) 


i X, 4 
X ٠۰۰.5 E X BEER 
y … 指 定 Y 座 標 











, Y で 指定 きれ た 座標 に マウ スカ ー ソ ル を 表示 し ます 。 


x 
指定 で きる 範囲 は , msarea 関数 に よっ て 設定 され た 範囲 内 で す 。 | 
第 3 一 59 図 は , setmspos 関数 に よっ て マウ スカ ー ソ ル で サイ ンカ ー ブ を 描か せる プロ グラ ム で 
9s 


10 /*setmspos test 

CN ee 

JH float" ra : 

40 screen 2,0,1,1 

50 mouse(9) 

60 mouse(1) 

79 palet(1,hsv(32,31,31)) 
80 for x= to 720 


90 ra=x*(pi(1)/180) 
100 y-sin(ra)*80 

110 setmspos(x*5,y*256) 
120 pset(x*5,y*256, 1) 
130 next 

140 mouse (0) 

150 end 


第 3 一 59 図 setmspos サン プル プロ グラ ム 
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109 IRF 

0 6 

30: 変数 宣言 (float A!) 

40 : 画面 モー ド を 768X512 の 16 色 モー ド に 設定 

50 : マウ ス の 初期 化 

60: マウ スカ ー ソ ル を 表示 する 

70 : パレット コード 1 ات ہج وھ‎ PES 

80: 0 一 720 度 まで x を 変化 うさ せる (for—next X) 

90: x 度 シラ ジア ン に 変換 す る 

100 : sin 関数 で * 度 の 正弦 を 求め る 

110: 変数 X, y で 指定 され る 座標 に マウ スカ ー ソ ツル を 表示 する 
120: 変数 x, Y で て 指定 され る 座標 に 黄色 の ドッ ト を 描く 
130 : next X 

140: マウ ス の 初期 化 


マウ ス は , ポイ ン テ ィ ン グ デ バイ ス と も いわ れる よう に 一 種 の 座標 入力 装置 で あり , コン ピュ 
ー タ 側 は 入力 され た 座標 デー タ に 基づい て きま ざ まな 処理 を 行い ます 。 この 座標 デー タ を 読み 込 
む 関 数 が 「mspos」 関 数 で す 。 

【MSPOS】 


mspos (X, y) 


int 型 の 変数 (定数 で な いと ころ に 注意 ! ) 


X と いう 変数 の 中 に は , マウ スカ ー ソ ル の 指す XX 座標 が 読み 
y と いう 変数 の 中 に は , マウ スカ ー ソ ル の 指す Y 座 標 が 読み 





883 一 60 図 は ,。 マウ スカ ー ソ ル の 指す 位置 の XX, Y 座 標 を 画面 に 表示 する プロ グラ ム で す 。 マ て 
ウス を 使う ブログ ラム を 作成 する 場合 . この 関数 は 非常 に 重要 で す の で し っ か り と 覚え て お いて 
下 き い 。 


/* mspos test 


int x,y 


mouse (0) 


mouse (1) 
while 1 
60 mspos (x,y) 
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50 msstat(x,y,bl,br) 

70 if bl=-1 then locate 1080,5:print"left on! " 

80 if brz-1 then locate 10,5:print"right on!" 

90 if bl=Q and br=9 then locate 10,5:print" L 
100 endwhile 


110 end 





第 3 一 61 図 msstat サン プル プロ グラ ム 


10 Sch 

20 : 変数 宣言 

30: マ ウス の 初期 化 

40: マ ウス の 右 ボ タン の 開放 

50 : 100 行 まで の 間 の 無限 ルー プ 

60: マ ウス の ボタ ン の 状態 を 変数 b], br に 読み 込む 

70: もし, 左 ポ ボタ ン が 押 き れ て いた だ たら"eft on !” と 表示 する 
80: もし, 右 ボ タン が 押 き れ て いた だ た ら ”right on! "と 表示 する 
90・ と どちら も 押 き る れ て いな けれ ば , 空白 を 表示 する 

100 : 50 行 に 戻る 


マツ ス の ボタ ン に 関し て , も う 一 つの 関数 が 「msbtn」 で す 。 
この 関数 は , ボタ ン が 指定 の 状態 に な る まで の 時 間 を 返す 関数 で ダブ プル クリ ッ ク を 検出 す る 時 
な ど に 便利 で す 。 


【MSBTN】 


x bsemsbtn-(nm,.b, t) 


int. Jis bu 

n… ボ タン の 状態 

nー0 の 時 ボタ ン が 離さ れる まで 

nー1 の 時 ボタ ン が 押さ る れる まで 

b … ボ タン の 左右 

b= テ 0 の 時 左 ボ タン 

b= テ 1 の 時 右 ボ タン 

t … 待 時 間 の 最大 値 

{の 値 が 0, 1, 65535 の 場合 は 。 ずっ と 待つ 。 
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マウ ス ボ タ ン が それ ぞ れ の 状態 に な る まで の 時 間 を 返し ます 。 
待 時 間 の 最大 値 を 越え た 場合 は , 一 1 を 返し ます 。 
ドラ ッ グ され た 場合 は , 0 を 返し ます 。 





第 3 一 62 図 は , ダブ ルク リッ ク を 検出 する プロ グラ ム で す が , 最初 に 待 時 間 を 聞い て きま す の 
で 入力 し て 下る $ る い 。 ダ ブル クリ ッ ク が 成功 すれ ば , ビー プ 音 が 鳴り ます 。 


E 
10 /* msbtn test 
eU int x.y,bl,;br,bs;i 
30 mouse (0) 
40 mouse (4) 
ےو و )و6 0ا5‎ Pt 
60 while br=9 
70 msstat(x,y,bl,br) 
80 if bl=9 then continue 
90 bs=msbtn(0,0, t) 

100 if bs<19 or bs>t-10 then continue 

110 bs=msbtn(1,80,1) 
120 if bs<10 or bs>t-10 then continue 
130 bs=msbtn(9, 0, t) 
140 if bs<19 or bs»t-10 then continue 
150 beep 
160 print"Double click ok!" 
170 endwhile 
180 mouse (0) 
190 end 


第 3 一 62 図 msbtn サン プル プロ グラ ム 


105 
20 - 
aU. 
40 
90 : 
60 : 
10.; 


コメ ント 文 
変数 宣言 
マツ ウス の 初期 化 


・ 右 ボタ ン の 開放 


待 時 間 の 入力 
マツ ス の 右 ボ タン が 押 き れる まで 170 行 まで の 間 を ルー プ 
マウ ス ボ タ ン の 状態 を 見 る 
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80: 左 ボ タン が 押 き れ て いな けれ ば , 60 行 に 戻る 

左 ボ タン が 離さ る れる まで の 時 間 を 変数 bs に 返す 。 こ の と き 待 時 間 t を 越え を た ら 一 1 を 返‏ : مو 
す‏ 

100 : bs の 値 が 10 よ り 小 さく , t 一 10 よ り 大 きけ れ ば 60 行 に 戻る 

110: 左 ボ タン が 押 き る れる まで の 時 間 を 変数 bs に 返す 。 こ の と き 待 時 間 {t を 越え を た 5 一 1 を 返 
す 

120 : bs の 値 が 10 よ り 小 さく , t 一 10 よ り 大 きけ れ ば 60 行 に 戻る 

130 : 左 ボ タン が 離さ れる まで の 時 間 を 変数 bs に 返す 。 こ の と き 待 時 間 t を 越え だら ー1 を 返 
す 

140 : bs 0182310 X 0^ ^8 €, t 一 10 よ り 大 きけ れ ば 60 行 に 戻る 

150: ビー プ 音 を 鳴ら す 

160: ダブ ルク リッ ク が 成功 し た こと を 示す コメ ント を 画面 に 出力 する 

170 : 60 行 に 戻る 

180: マウ ス を 初期 化 


ジョ イス ティ ッ ク 関 数 


ここ で は , ゲー ム 等 を 作る 時 に 大 切な ジョ イス ティ ッ ク に 関す る 関数 の 説明 を 行い ます 。 
X68000 に は 素晴らし い ゲ ー ム が これ か ら も だ くさ ん 出 て くる と 思い ます が , 皆さん も 一 つ 自 分 の 
ゲー ム で も 信 っ て 見 だ らい か が で し よう が ? 
【STICK】 


S | sti=stick (i) 


1 
ES 1 一 1 の と き ジョ イス ティ ッ ク 1 の ステ ィ ッ ク の 状態 を 調べ る 。 
c E c MN 1-20t8 ジョ イス ティ ッ ク 2 の ステ ィ ッ ク の 状態 を 調 さ る 。 









int sti 
ステ ィ ッ ク の 倒れ 方 に よっ て 第 3 一 63 図 の よう な 値 が 返っ て きま す 。 
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第 3 一 63 図 ステ ィ ッ ク の 倒れ 方 と 戻り 値 と の 関係 


【STRIG】 








irg-strip- (1) 








int i 
r= FOE S ジョ イス テイ ッ ク 1 の トリ ガー の 状態 を 調べ る .。 
cU UP: ジョ イス ティック 2 の トリ ガー の 状態 を 調べ る .。 







Int trg 
Mg 一 U の と そ き E ہج‎ EE と 6 生き され て そい かい 。 
trg 三 1 の と き WË ガー の 呈 得 きん れ て いる 。 
ug-20t8-. ドリ ガー2 の あみ 押 きれ て いる 。 
r= の と きる keet 2 と も 押さ る れ て いる 。 










第 3 ー64 図 は 。 ジョ イ ^W Vb ク で マウス カー ソル を 動か し て 画面 に 線 を 描く Zu SH 
「 2 ガー1 を 押す と 緑 , トリ ガー 2 で 水色 の 線 と な り ま す 。 終 了 す る 時 は , トリ ガー1。 2 を 同 
時 に 押し て 下さ きい 。 


/* stic & strig test 


int sti,trg,x,y,col=1 


Screen 2,8,1,1 





mouse(8) 
58 mouse (1) 
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60 x-384 : y-2565 

70 palettl,hsvíi64, 31, 3D) 
88 palet (2, hsv(96,31,31)) 
90 while trg<>3 

100 sti=stick(1) 





110 switch sti 

120 case l:xzx-l:yzy*l:pset(x,y,col):break 

130 case 2:y=y+l:pset(x,y,col):break 

140 case 3:x=x+1:y=y+1:pset(x,y,col):break 

150 case 4:x=x-l:pset(x,y,col):break 

160 case 6:x=x+1:pset(x,y,col):break 

170 case 7:xzx-l1:yzy-l:pset (x, y, col):break 
. 188 case 8:yzy-I:pset(x,y,col):break 

190 case 9:xzx*l:yzy-l:pset (x, y, col) :break 


















200 endswitch 

210 if x>767 then ×7 
220 if y>511 then y=511 
230 if x<9 then x= 






240 if y<Q then y=W 
250 setmspos(x,y) 
260 trgsstrig(i) 








270 switch trg 

280 case l:col=1:break 
290 case 2:col=2:break 
300 endswitch 

310 endwhile 

320 mouse (0) 

330 end 





第 3 一 64 図 ジョ イス ティ ッ ク 関 数 サン プル プロ グラ ム 


lota X 

20 : 変数 宣言 

30 : 画面 モー ド を 768X512 の 16 色 モー ド に 設定 
40:・ マ ウス の 初期 化 
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PR PP PPM 3-3 外部 関 数 AMR?‏ ا یبر nunununununununununununununununununununununununununununununununununununununununununu‏ ای لی ای لیب نایا نا ابی ےآ 


DU. GUAT o 2v SS 
60 : 座標 の 初期 値 を 変数 Xx, y に 代入 
0 一 680・ パ レッ トコ ー ド 1, 2 に 緑 , 水色 を モット 
290・ ト リガ ー1, 2 が と も に 押さ れる まで 310 行 ま び を ルー プ 
100: ジ ョ イス ティ ッ ク 1 の ステ ィ ッ ク の 状態 を 変数 sti に 返す 
110—200 : sti の 内 容 に よっ て 点 の 表示 座標 を 変え て 点 を 描く 
210—240 : 点 の 座標 が 画面 の 外 の 値 に な ねら な いよ うに 条件 を 与え る 
290 : 点 の 表示 座標 に マウ スカ ー ソ ル を 表示 する 
260・ ジ ョ イス ティ ッ ク 1 の トリ ガー の 状態 を 変数 trg に 返す 
270—300 : trg の 内 容 に よっ て 描く 色 を 変え る 
310 : 90 行 に 戻る 
220・ マ ツ ス の 初期 化 (トリ ガー1, 2 と も に 押 き れ て いれ ば , ルー プ を 抜け て , この 行 に 
X 2) 





۸568000-7 |, ADPCM と いう 方 式 に よっ て 音声 を サン プリ ング する こと が 可能 で す 。 X68000 の 
音声 入力 端子 (AUDIO IN) か ら 6 音声 信号 を 取り 込み ダ ジ タ ル デ ー タ に 変換 する こと に より メモ 
り に 格納 する こと が 出来 る の で す 。 

この 素晴らし い 機 能 ち も メーBASIC か ら 「audio.fnc」 を 使っ て 利用 する こと が 可能 と lx 
$31. 

'audio.fnc」 の 中 に は , 音声 デー タ を メモ リ に 格納 (録音 ) する だ め の 「A REC, 関数 と メモ 
J に 和裕 納 る れ た デー タ を 再生 する た め の 「A PLAY, 関数 が 用 意 き れ て いま SE 


【A REC】 






avec (na, frq, le) 






na…Dcm デー タ を 格納 する 数 値 型 の 一 次 元 配列 の 名 前 
int frq, le 

frq… サ ンプ リン ググ 周波 数 

frq— 0 の 時 3.9KHz 

(1 秒 当 た り 1950 バ イト の メモ リ を 消費 ) 

frq= 1 の 時 5.2KHz 

(1 秒 当 た り 2600 バ イト の メモ リ を 消費 ) 

frq—- 2 の 時 7.8KHz 

(1 秒 当 た り 3900 バ イト の メモ リ を 消費 ) 
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frq—- 3 0R 10.4KHz 
t | O) (1 秒 当 た り 5200 バ イト の メモ リ を 消費 ) 
P | _ frq=4 の 時 15.6KHz 
| 。。。 | (1 秒 当たり 7800 バ イト の メモ リ を 消費 ) 


le… 配 列 の 添え 字 0 か ら の 長 る 8 る (バイ ト 数 ) 

char 型 配列 の 場合 …… 最 大 値 は , 宣言 し た 配列 の 値 十 1 

int 型 配列 の 場合 …… 最 大 値 は , (宣言 し た 配列 の 値 十 1)X4 
float 型 配列 の 場合 … 最 大 値 は , (宣言 し た 配列 の 値 二 1)X8 





a rec 関数 は , pem デー タ を 配列 に 格納 し ます 。 従っ て , あら か じ め 配 列 を 用 意 し て お 〈 必 要 が 
あり ます 。 この 配列 は 数 値 型 の 一 次 元 配列 で す の で , 配列 名 を "pcm" と すれ ば , 次 の 三 つ の 型 が あ 
り まず 。 
1 dim char pcm (n) n = Rz!) 0 ZX 
2. dim int pcm (n) 
3. dim float pcm (n) 
char 型 の 場合 に は , 一 つの 配列 で 1 バイト, int 型 の 場合 に は 一 つの 配列 で 4 バイ ト , float X! 
| で は 8 バイ ト の デー タ が 格納 出来 ます 。 
| サン プリ ング 周波 数 を 最大 の 15.6KHz に 設定 し た 場合 , 1 秒間 の 録音 で 7800 バ イト の メモ リ を 
E 消費 する の で , "dim char pem (65535) "と 配列 宣言 し た 場合 に は , 65536 バ イト /7800 バ イト = 
8 秒間 の 録音 が 可能 で す 。int 型 で 同じ 配列 を 宣言 すれ ば 4 倍 の 32 秒 間 , float 型 で は 8 4010648 
の 録音 が 可能 で す 。 しかし, "dim float pem (65535) "と いう 配列 を 宣言 し た だ 場合 。 これ だ け で 
| 512 バ イト の メモ リ が 使わ れる こと に な り ま す 。 Š 
| 引数 le は , 用 意 し た 配列 の 数 の 内 , 何 個 の 配列 ( 何 バ イト 分 ) を 使う か を 決め ます 。 例え ば, 
| "dim char pcm (65536) "と いう 配列 を 用 意 し て , "a rec (pem, 4, 32767) "と すれ ば 4 秒間 
の 録音 ほ と い うこ と に な り ま す (32768 バ イト /7800 バ イト 4), "dim int pem (65535) " E L 72:3 
合 は , 配列 の 数 は 65536 個 で す が , バイ ト 数 は 65536X4=262144 バ イト と な り , le の 最大 値 は 
262144 と な り ま す 。 
次 は , 再生 を 行う た め の 関 数 「『A PLAY」 で す 。 
【A PLAY】 


a play (na, frq, md, le) 


na: pem デー タ を 格納 する 数 値 型 の 一 次 元 配列 の 名 前 
int Dro, md, le 

frq…… サ ンプ リン グ 周 波数 

frq デ 0 の 時  3.9KHz 

( 1 秒 当 た り 1950 バ イト の メモ リ を 消費 ) 

frq= 1 の 時 5.2KHz 








172 











EE EE? 3-3 外部 関 数 RURKI 


(1 秒 当 た り 2600 バ イト の メモ リ を 消費 ) 
frq 三 2 の 時 7.8KHz 
(1 秒 当 た り 3900 バ イト の メモ リ を 消費 ) 
frq= 3 の 時 10.4KHz 
(1 秒 当たり 5200 バ イト の メモ リ を 消費 ) 
frq 三 4 の 時 15.6KHz 
(1 秒 当 た り 7800 バ イト の メモ リ を 消費 ) 





md= 0 の 時 出力 し な い 

md= 1 の 時 左 チ ャ ン ネ ル の み 出 力 

md= 2 の 時 右 チ ャ ン ネ ル の み 出 力 

md= 3 の 時 左右 の チャ ン ネ ル か ら 出 力 

le…… 配 列 の 添え 字 0 か ら の 長き (バイ ト 数 ) 

char 型 配列 の 場合 …… 最 大 値 は , 宣言 し た 配列 の 値 十 1 

int 型 配列 の 場合 …… 最大 値 は , (宣言 し た 配列 の 値 十 1 ) x 4 
float 型 配列 の 場合 …… 最 大 値 は , (宣言 し た 配列 の 値 填 1)x 8 


مقم 
EL‏ 
DE‏ 
HL‏ 





第 3 一 65 図 は , 録音 , 再生 を 行う プロ グラ ム で す 。 画面 の 指示 に し た が っ て 実行 し て 下 き い 。 
も ちろ ん , 音声 入力 端子 に は ラジ カ ャ 等 を 接続 し て お 〈 く 必要 が あり ます 。 


10 /* a rec & a play test 

29 int frá, le, md 

30 str k | 

40 dim char pcm(65535) 

50 input" 録 音 周波 数 (0 一 4 ) ":fraq 

60 print "録音 を 始め ます 。 何 か キー を 押し て 下さ い 。” 
70 k=inkey$ 

80 a_rec(pcm, frq, 65536) 

98 while 1 

100 input" H AAA (O — 4) ":fraq 

110 input HAE 9 $734 FR (1-655356) "ie 
120 print 再 生 を 始め ます 。 何 か キー を 押し て 下さ い 。” 
130 k=inkey$ | 

140 a play(pcm,frq,3,1e) 

158 print Ee ہک‎ — REB e (Y/N)* 
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150 k=inkey$ 
170 if k く > y and ke" then break 


180 endwhile 
130 end 





第 3 一 65 図 オー ディ オ 関 数 サン プル プロ グラ ム 


10-93 qx 
20-30 : 変数 宣言 
40 : ppm デー タ を 格納 する 配列 の 宣言 
50 : 録音 周波 数 の 入力 
60: メッ セー ジ を 画面 に 出力 
70 : 何 か キ ー が 押 き る れる まで て 待つ 
80 : 配列 pcm に 先程 入力 し た 周波 数 の pcm デー タ を 65536 バ イト 分 格納 する 
90 : 180 行 まで の 間 を 無限 ルー プ 
100 : 再生 周波 数 を 入力 
110 : 再生 する バイ ト 数 を 入力 
120: メッセー ジ を 画面 に 出力 
130 : 何 か が キー が 押 き れる まで 待つ 
140 : 配列 pcm の 中 の pcm デー タ を 先程 入力 し た 周波 数 で 指定 バイ ト 数 分 を 左右 の チャ ン ネ 
ル か ら 出 力 する 
150: メッセ ー ジ を 画面 に 出力 
160 : 何 か キ ー が 押さ る れる まで 待つ 
170 : 押さ る れ だ た キー が [Y] キー 以外 な ら ば 190 行 へ 飛ぶ 
180 : 90 行 へ 戻る 


FIM 音 湯 の 制御 (MUSIC.FNC) 


X68000 に は , 8 重 和 音 の ステ レオ FM 音源 の LSI が 内 蔵 る され て お り , MUSIC.FNC と し て 外 
部 関数 が 用 意 る れ て いて , この ハー ドウ エア を 使用 する こと が 出来 ます 。 し か し , この LSI が あ 
まり に も 機能 が 豊富 すぎ て , 使用 に 当たっ て は BASIC の 関数 し し て は 不適 切な ほど 内 部 を いじ 
れる よう な 関数 も あり ます 。 

実際 の と ころ , 以前 まで の FM 音源 の 主流 どっ た YM2203 と いう LSI の マニ ュ ア ル は , 本 の よう 
に 分 厚い 物 が 付い て きま し た 。 逆 を 言え を ば , それ ほど FM 音源 と 言う の は 面倒 な も の な の で す 。 
従っ て ここ で は , 一 通り 関数 説明 を し て 実際 に 曲 を 演奏 する 手順 を 解説 し て いき ます 。 
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Enge AERCH ET 3-3 外部 関 Zu IRMA MY 


(a) FM 音源 の 関数 


【M ALLOC】 
トラ ッ ク バ ッ フ ァ を 確保 し ます 。 ト ラッ ク 内 の デー タ は , クリ ア る され ます の で 注意 し て 下る い 。 


nif-—m-alóoc (t; 3) 


char f. :mt s 
トラ ッ グ 番号 (180) 


トラ ッ ク サ オズ (ユー65596 バ イト ) 


it mf 
big t LC, IEEIBONEAO, T-»—OBN-—1«4xULZ3., 





[M ASSIGN] 

FM 音源 の 各 チ ャ ン ネ ル に , ト ラッ ク の 割り 付け を し ます 。 複 数 の チャ ン ネ ル に 同一 の トラ ッ ク 
を 割る 当て る と , それ ぞ れ 同じ 楽譜 を 演奏 し ます 。 ま た , 複数 の トラ ッ ク を 一 つの チャ ン ネ ル に 
割 り 当て る と , 一 番 最 後に 設定 され た トラ ッ ク の 楽譜 を 演奏 し ます 。 デ フォ ルト 値 は , 1 か ら 8 
チャ ン ネ ル が 1 か ら 8 ト ラッ ク に 対 選 し ます 。 


| mf=m assign (c, t) 


chance t 
decem SwsgwES (t= 8) 
GE トラ ッ ク 番 号 (1 一 80) 








int mf 
戻り 9 値 Jä. 正常 の 時 は 0。 エラ ー の 時 は 上 を 返し ます 。 


[M CONT] 
c1 か ら Cc8 で 指定 され だ チャン ネル に お いて , 一 時 停止 し た 演奏 を 再開 し ます 。 チャンネル を 全 
て 省略 する と 現在 一 時 停止 し て いる 全て の チャ ン ネ ル の 演奏 を 再開 し ます 。 


pism cont (cl. CECA, c5, cb. el c8) 
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HAMA 第 3 TÉ 標準 関数 と 外部 関数 Ud RM ایا‎ PA ایا 5 بی‎ PA از ۳ نیا‎ FA ای ۴۹ ایز ۹ کی ۹ ایز‎ FA ای‎ PA ای ۹ زی‎ PA ایز‎ PA لغ‎ PA ای‎ PA ای ۴۹ بر‎ PA زی ۴۹ نی‎ PA لی ۴۹ ایز‎ PR نے [۴ ای‎ PA زی‎ NAAR ۳۷ زی‎ FA ار‎ PA از ۴۹ نیز‎ PA ایز‎ PA یڑ [۴ ا‎ PA ا [۴ ہی‎ PA لی‎ FA  ۴( نی ۹ ای‎ PA بیز ۴۹ نیز‎ PR ای‎ PA رز‎ P زی‎ PA از‎ PA بی‎ PA زی‎ PA MAMA? 


int mf 
戻り 値 mf は, 正常 の 時 は 0, エラ ー の 時 は 一 1 を 返し ます 。 





[M FREE] 
指定 され た トラ ッ ク の 残り バイ ト 数 を 返し ます 。 


戻り 値 n は , トラ ッ ク の 残り バイ ト 数 を 返し ます 。 





[M INIT] 
FM 音源 (トラ ッ ク デ ー タ , 音色 ) を 初期 化し ます 。 





【M PLAY】 
cl か ら c8 で 指定 され た チャ ン ネ ル に 割り 当て られ た だ た トラック デー タ を 演奏 し ます 。 チ ャ ン ネ 
ル を 全て 省略 する と, 全 チ ャ ン ネ ル を 演奏 し ます 。 





mi-m play (cl, c2, c3, で 4。 5, c6, c7, c8) 


int mf 
戻り 値 と し て は , 正常 の 時 は 0, エラ ー の 時 は 一 1 を 返し ます 。 
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TIPP RM لی‎ PM PR PM Pd Pd PP hd PM Pd PP d Pd Pd Pd Pd Pd Pd A POP POP Pa PON d PU RRR SRR Rd POP d Pd Pd ۷ NEEN EEN POR NENNEN POR POR ENNEN REN NNEN RN 3-3 外部 関 数 MAHAWI 


[M_STAT] 

指定 きれ だ た だ チャンネル が 演奏 中 か どう か 調べ , 演奏 中 な ら 1, そう で な けれ ば 0 を 返し ます 。 
m stat ( ) の 場合 は , 返さ れる バイ ト 値 の ビッ ト 0 一 ビッ ト 7 が, チャ ン ネ ル 1 一 8 に 対応 し 
ES, 


戻り 値 と し て 0 な ら 停 止 中 , 1 な ら 演 奏 中 , エラ ー の 時 一 1 を 返し ます 。 





【M STOP】 
cl か ら c8 で 指定 され た チャ ン ネ ル の 演奏 を , 一 時 停止 し ます 。 チ ャ ン ネ ル を 全て 省略 する と, 
全 チ ャ ン ネ ル の 演奏 を 一 時 停止 し ます 。 | 


mM =m stop (cl, c2, c3, c4, c5, c6, c7, c8) 





char 






int mf 
戻り 値 と し て は , 正常 の 時 は 0, エラ ー の 時 は 一 1 を 返し ます 。 





【M TEMPO】 
テン ボ を セッ ト Wi deo 


ehar- te 


te は , 32 一 200 の 範囲 で す 。 


int mf 
戻り 値 と し て は , 正常 の 時 は 0, エラ ー の 時 は 一 1 を 返し ます 。 
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| unun 第 3 d 標準 関数 と 外部 関数 VM PM PUR POLUM POP PU Pd PE PM Pd DND PU PURO Pd Pd PA ۹اذ‎ POR PU RU Pd PU Pd Pd Pd POP ا‎ PU PU PURO POR d PU Ru DNR HD AM AMA MAM لا ادا ایا ایا ایا ایا ایا‎ 


[M TRK] 
MML に よる 楽譜 デー タ を トラ ッ ク に 書き 込み ます 。 


mim trk (t, st) 


N E ek 
トラ ッ ク 番 号 (1 一 80) 
S t= NIMI (ミュー ジック マ クラン ゲー ジ ) デー タ 





int mf 
戻り 値 と し て は , 正常 の 時 は 0, エラ ー の 時 は 一 1. を 返し ます 。 





m trk 関数 で 使用 する MML (Music Macro Language) に は , その 名 の 通り 音楽 的 な 文法 を 
記 ち 化し た 言語 で て す 。 この 記述 は , 文字 列 型 変数 に 代入 する か "(引用 符 ) で 囲ん だ 文字 列 を 直接 
関数 に 記述 する か の どちら か で す 。 MML に 使用 きれ る 記号 の 文法 は 次 の 通り で す 。 MML は , 大 
文字 で も 小文字 で も 構い ませ ん 。 
〇 音程 に 関す る 記号 


Ae Gem A, B, C… は , 2, v, F7 (長調) に 対応 し ます 。 を の 後に あ また は 
を 付け る と 半音 上 が り , 一 を 付け る と 半音 下がり ます 。 
| OU ce ا‎ ォ オクターブ の 指定 で , を その後 の 0 一 8 の 数 字 が 高き を 表し ます 。 数字 を 省略 


| する と, この 前 に 設定 し た オク ター ブ と みな る れ ま す 。 デ フォ ルト 値 は 04 で 
まこ だ お あこ オ クタ ー グ 0 で G, C t D な は 便 え ず オウ ッ ク カー E 
$5 D 以 外 は 使え ませ ん 。 

オク ター ブ を 一 つ 上 ば げ ま KE?‏ او وک 
لے オ クタ ー ブ を 一 つ 下 げ ま‏ لہ و او ہے جو کا M‏ 
O 休 符 に 関す る 記号‏ 
RT 一 KR64…… 休 符 を 指定 し ます 。 デ フォ ルト 値 は R4 で す 。‏ 
O テン ポ に 関す る 記号‏ 
T32-— 200… 全 体 の テン ボ を 設定 し ます 。 デ フォ ルト 値 は , TINCT;‏ 
O 長 さ に 関す る 記号‏ 
L し ユー ルル 64…… 音 和 何 の 長 る を 決め ます 。 LIES TOR (4 拍 ) と し , 以下 の 音 の 長き は 1 ノ 数‏ 
値 と な り ま す 。L64 が 最短 で , 64 分 音符 に な り ま す 。 デ フォ ルト 値 は L4 で‏ 
KE‏ 
数 字 1 一 64…… 音 符 や 休 符 の 後に 付け , L の 指定 に か か わり な くそ の 音 の 長き だ け を 変更 し‏ 
ます 。 音符 や 休 符 の 長き を 省略 し た 場合 は , その 前 の 上 の 設定 値 に な り ま す 。‏ 
(ピリオド)… 昔 符 や 休 符 の 後に 付け , その 長き を 1.5 倍 に し ます 。 二 っ 続け る と , 1.75 倍 に‏ . 
D E SCA‏ 
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VM PA ایا‎ PPP ۹ ایز ۹ ایا‎ PRU PA ای‎ PA D PA ایا‎ PA PU Rd PURO PA ایز ۴۹ ایز‎ PR Pd PO PO Pd PU Pd PA ایز‎ PA ایز ۴۹ ایز‎ PURO PA ha PA ایز‎ PU PO PO RO POR PP PA Pd Pd PRO PO RO Pd PA ND P PURO PU RU RN RUP RUP RU PA ایز‎ PA ایز‎ PA ای‎ PA لی‎ 1 3-3 外部 関 数 AMAMI 


音 中 で , 実際 に 音 を 出す 割合 を 設定 し ます 。 1 一 8 の 数 字 に より , その 割‏ 1 خر را و اہک 
合 は 1/8 一 8/8 (割合 =1) まで 変化 し ます 。 デ フォ ルト 値 は Q8 で す 。‏ 
Spe eb 前 後 の 音 つなぎ ます (タイ )。 音色 に よっ て は , この コマ ンド を 連続 し て 使‏ 
ë i e RE,‏ 2 
指 定 さ れ た 長き の XX 分 音符 を , { } 内 の 音色 デー タ の 個数 で 等 分 し た 音 の 長‏ …64) (—1) { 
さて 出力 し ます 。 A ELITS SORS, 64 分 音 答 より 短い と エラ ー に な りき ま‏ 
す 。 ま だ , 連 符 が 増加 (12 連 等 な ど ) する と , テン ポ に 誤差 が 出る 場合 が あ‏ 
り ま す 。 ま た だ, { } 内 で L, Q 等 の 音符 の 長き を 変え る コマ ンド を 使用 する‏ 
bo エタ クー が の まく‏ 
@L1 一 @L192… 音 の 長き を 短く 指定 し ます 。 全音 符 を 192 の 長き る として, 実際 の 長き を 指定 し‏ 
ます 。 デンキ ルト 慎 は @L4ST(T4 と 同じ ) て す 。‏ 
O 音量 に 関す る 記号‏ 
V0 一 V15……… 音 量 を 設定 し ます 。 デ フォ ルト 値 は V8 で す 。‏ 
@V0 一 @V127…V コ マン ド と 関係 な く 音 量 を 細か く 〈 く 設定 し ます 。‏ 
〇 繰り 返し に 関す る 記号‏ 


a sss | :n と : | の 間 を n 回 織り 返し ます 。n は 1 一 256 で , 省略 値 は 2 で す 。‏ وہ ہے 
EES 繰り 返し の n 回 目 で , 演奏 すべ き 楽 譜 デ ー タ を 指定 し ます 。n は 1 一 256 で‏ 
す 。‏ 


O 音色 に 関す る 記号 
@1 一 @200…… 音 色 を 指定 し た 番号 の も の に し ます 。 デ フォ ルト 値 は @ 1 で す 。 音色 番号 は 
第 3 一 56 図 に 示す 通り で す 。 
O その 他 の 記号 
Yr, dece OPM の レジ スタ を 直接 設定 し ます 。 
Rd Eege レジ スタ 番号 


だ だ し , SCHOLL &H10 SHIL &H12, &H14 の レジ スタ 番号 は 使え ませ 

ts 
@W1@W64… 指 定 さ きれ だ た 長き る だけ, HÀIEOIJKNÉ e EPF U Zi, た だ し , - Y me یی لی تچ‎ 
KEY ON/OFF し た 後 で の み 有 効 で す 。 省略 値 は , ےہ تو وو و‎ 
に な り ま す 。 デ フォ ルト 値 は , @W4 で す 。 








1. A. PIANO 4. H.PIANO JS. E. PIANO 4. CLAVINET 
S, "CELESTA 6. CEMBALO T. ñ GUITAR 8, E.GUITAR 
jg. "B. BASS 18. E. BASS 11. BANJO I2; E. GUTTAM 
13. HARP 14. KOTO 15. P. ORGANI 16. P. ORGAN2 
17. E. ORGAN 18. ACCORDION 19. VIOLIN 20. CELLO 

21. STRINGSI 22. STRINGSZ2 23. PIZZICATO 24. VOICE 

25. CHORUS 26. GLASS HARP 21. HISTLE 28. PICCOLO 
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۶ ای ۳۷ یڑ ۹ز ۳۹ رز ۷ نی 5 M‏ ۷ یز FA‏ ایز( ایر PA‏ ا PA‏ زی ۹ ا A‏ نی PA‏ ا PA‏ رز FA‏ ایز PA‏ از PA b PA‏ ا PA‏ ایز PA‏ نی PA‏ ا PA‏ نیز ۴۹ تی PA‏ نیز ۴۷ PR ba‏ زی( ا PA‏ ایز PA‏ ای PA‏ ای ۴۹ ای PA‏ یز ۹ی PA‏ لی PA‏ ا PA‏ ای PU‏ ایز PA‏ ایز PA‏ زی یز ۳۹ ای PA‏ با ۳۹ ایز نیز 7۹ ایا F‏ ای PA‏ نیز FA‏ زی PAU‏ نی PA‏ ایا PA‏ ای WAR as 3 SS 標準 関数 と 外部 関数 VF P PA‏ 


29. FLUTE 30. 0BOE 31. CLARINET 32. BASSOON 


33. SAXPHONE 34. TRUMPET 35. HORN 36. TROMBONF 
37. TUBA 38. BRASSI 39. BRASS2 40. HARMONICA 
41. OCARINA 42. RECORDER 43. SAMBA WHISTLE 4۳۶٣ 
45. SNARE DRUM 46. RIMSHOT 47. BASSDRUM 48. TOM- TOM 
49. TIMPANI 50. BONGO 51. TIMBALES 52. TRIANGLE 
53. COWBEL 54. TUBLER BELL 55. STEEL DRUM 56. GLOCKEN 
57. VIBRAPHONE 58. MARIMBA 58 1ب‎ - CLOSE 69.H-H OPEN 
61. CYMBAL O2. SYN LEADI 63.SYN LEAD2 64. AMBULANCE 


65. STORM 66. LASER GUN 67. GAME SEI 68. GAME SE2 





第 3 - 0650 音色 の 種類 


[M VGET] 
音色 デー タ を 配列 に 読み 込み ます 。 戻り 値 し と し て は , 正常 の 時 は 0, エラ ー の 時 は 1 を 返し 
ます 。 


char (vo), char (4, 10), 配列 名 (ca) 





[M VSET] 
配列 に 設定 きれ て いる 音色 デー タ を , 指定 され た 音色 番号 の メモ リバ ッ フ ァ に 登録 し ます 。 戻 
り 値 と し て は , 正常 の 時 は 0, エラ ー の 時 は 一 1 を 返し ます 。 


10), 配列 名 (ca) 





(b) FM 音源 関数 を 使っ て みる 


それ で は , 実際 に 含ま で に 説明 し て きた 関数 を 実際 に 使用 し て 曲 を 演奏 きせ て み ま す 。 第 3 一 
67 図 を 打ち 込ん で 下さ い 。 
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UAPR ایز‎ PA یا‎ FA ایا‎ PU ا ۴۹ ایا‎ PA بیز ۹ ایا‎ PA ایا‎ PA ایز‎ FA ایا 8 ایز‎ PA بی‎ PU اکا‎ FU MAMAS PA زی‎ PA D A ایا ۹ ایا‎ PA ایا‎ P ایا‎ FR یز‎ R ایا‎ FA انی‎ AMARA MARAN 7 ای‎ PU ای‎ R ای 7۹9یا‎ PA ایا‎ FA ایا‎ FA ای ۳۹ کی‎ PA ha A ارذ (۹ ای‎ PA زی ۴۷ یڑ ۷ زی‎ PA ایا ۷ ایز 78 ایز ۴۹ کیا‎ PA ایا‎ FA نیا ۴۹ بیز ۹ انی‎ R ایا ۶ ای‎ PR یا‎ PA ایا‎ PA ای‎ PA بی(‎ FA زی‎ PA بیز‎ PA h 3-3 外部 関 Z AMRAM 


18 str a[255] 

20 m jinit() 

30 m_alloc(1, 2000) 

40 m assign(1.1) 

50 m trk(l,"q7 81 v180 o3 t100") 

90 az"cdefedcrefgagfercrcrercrc8c8d8d8e8e8f8f8edcr" 
I38 e trk(l,a) 
170 m play O 
180 end 


第 3 - 670 何 の 曲 ? 


この プロ グラ ム で は , まず 最初 に MML の 記述 用 の 文字 型 変数 を 255 文 字 に 確保 し て 重 言 し 
て いま す 。 次 に , FM 音源 の 初期 化 を し て いま す 。 次 の , m alloc と m assign は ペア の よう な も 
OT, トラ ッ ク バ ッ フ ァ を 確保 し 各 チ ャ ン ネ ル に トラ ッ ク を 割り 付け ます 。 次 に 演奏 する 曲 の 諸 
時 年 を トラ ッ ク 十 に 書き 込み ます 。 これ は , 90 行 と 130 行 と で 実行 し て いる 音符 デー の 書き 込み 
較 箱 に 実行 し て も いい の で す が 。 音 待 デ ー タ Lett, EE. OS 2 QD EB یں‎ EE 
還 だ 詞 が わか りや すい デー タ の 記述 に な り ま すご / ト ラック バッ ファ が いっ ぱい に な る まそ は 
馬 々 に トラ ッ ク バ ッ フ アァ へ 書き 込む せこ と が 出来 ます 。 を そし て , 170 行 て めで た だく 曲 の 演奏 と Mk うと 
RES AA, 

時 の 歌 が …… と 思わ ず 日 に 出 て きそう な ピア ノ の 演奏 に な っ だ た と 思い ます 。 こ の プロ グラ ム 
は 行 番号 が 飛 々 に な っ て いま す が , 次 に 色々 と 追加 し て いく だ めで すか ら , その まま の 行 番号 で 
者 ち 込 ん で 下さ い 。 

A, 実行 し た の は 1 音 の 演奏 で す が , X68000 に 内 蔵 る され て いる FM 音源 LSI は , 8 音 ま で 同時 
に 出す こと が 出来 ます 。 星 の 歌 が …… と くれ ば 輪 唱 と いう こと に な り ま す 。 も う 1 音 追 加 し て み 
まし ょ う 。 系 3 一 67 図 の プロ グラ ム へ 次 の 第 3 一 68 図 の よう に リス ト を 追加 し て 下 き い 。 


10 str a[255], bf 2551 
20 m init 


30 m alloc(1,2000):mm.alloc(2,; 2089) 





40 m assign(1,.1)??m:assiígn(2,2) 

50 m trk(1,"q7 81 v19 o3 t100") 

m.trk(2, "q7 81 við o4 t180")‏ ق8 

90 a-"cdefedcrefgagfercrcrcrcerc8c8d8d8e8e8f8f8edcérerrrrrrg 
188 bs"rrrrrrrrcdefedcrefgágfercrercererceBcBdBdBeBeBfBfBedcr" 
130 m trk(t1,a) 

148 m trkt2, b) 
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HAMA as 3 = 標準 関 数 と 外部 関数 Vid Fd PU PUO PU PA ایز ۴۹ ای‎ POS PO PO PU PU PU PRU PU PA ایز ۴۹ ایز‎ PA ایز‎ PU P Pd PA PURO RUE Rd PURO ۹ ایز ۴۹ ایز ۹۹ ایز ۹ ایز‎ PA a PA ed PA hal PA ad PA had PA Ma PA had PA d PA bad PA had PA had PA had PU had PA had PA hd PR ba PA had A d PAU hal PA hd PA h PA hd PA h F 


170 m_play() 
180 end 


第 3 ー68 図 2 重奏 に する 


この ブロ グラ ム を 実行 し て , 感動 の 涙 が 出る 方 も ああ る か と 思い ます 。 網 掛け の 部 分 を 追加 し た 
Di; まず 下 ラ ッ ク バ パッ ププ デ を も う 一 つ 追 加 も で 4 その トド トラック も チャ キン ネル ENDE O FL 
Co こす と て 5 ュ クタ チャン と 26 25) EO LEXSHOERSD EOM dib35 あせ 人 発 糧 の 要領 で ) 
文字 列 型 変数 b に 音 庶 デ ー タ を 書き 込み トラ ッ ク 2 へ 送っ て や れ ば いい の で す 。 | 

Š > 2 Coro C527, Senëe 3 重 に し て みた 65 どう で し ょ うか 。 第 3 一 68 図 の プロ グラ ム に 
第 3 一 69 図 の よう ھ۷"‎ BnL C KS 





str a[255],b[255]; 34 
m init() 
m_alloc(1,2000):m_alloc(2,2000):mlalloc (3 , 2880) 








m_assign(1,1):m_aasign(2,2) :izassiígn(3, 3) 
m trk(1."q7 81 v19 o3 t100") 

m trk(2, QT $T v19 o4 t1909") 

70 8 trk(3, "ai Bt við o5 t188") 
a-'"cdefedcrefgagfercrcrcrcrc8c8d8d8e8e8f8f8ederrrrrrrrrrrrredc 
bz"rrrrrrrrcdefedcrefgagfercrcrcecrerc8c8d8d8e8e8f8f8ederrrrredc" 
|18 c=”"”rrrrrfrrerrrrrrrrrcdefederetgagfercrereérere8g8c84d8d8eBeBf8f8edo” 
وو ار‎ a) 

m_trk(2,b) 

150 5 trk(3, c) 

m play 


end 





第 3 —69[x] eeng 

も うう 完璧 な 時 の 歌 に な っ て し まい まし た 。 楽 回 の 弾け な い に 人 に と っ て は 非常 に 心強い 味方 で す 
ね 。 も う ヤ ミツ キ に な っ た 気持 ち で , 第 四 音 を 追加 し て み ま し ょ う 。 第 四 音 は ベー スパ ー ト に し 
て み ま す 。 第 3 一 69 図 を 第 3 一 70 図 の よう に し て 下さ きい 。 





10 str a[255], b[ 2551, 2667ء‎ 

20 m_init() 

30 m alloc(1,2000):m alloc(2,2000):m alloc(3,2000)0 2242 Tiócx £ 2889) 
40 m assign(1,1):m assign(2,2):m assign(3,3) ACEC 4) 

50 m trk(1l,"q7 81 v19 o3 t100”) 

60 m trk(2, "q7 81 v19 o4 troo”) 
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N MLPA MA ایا‎ PA ایا ۹ ایا ۹ لیا‎ PA ایا ۹ لی ایا ۴ ای‎ PA ایا ۹ ایا‎ PA ایز‎ PA ایا‎ PA ای‎ PA زی ایز‎ Bii M RM AMA RM Pd Pd PM POP Pd PU Pd u از‎ PA ای( ۴۷ نی‎ RV RN P POM PU PA نی‎ PA Pd PU PO POR PP PU PR ايا ايا ايا ايا ايا ايا ايا يا ايا ايا‎ PP 373 外部 ES 数 AMAMI 


70 m trk(3,"q7 $f v19 o5 t100") 
88 a ick C4, PTG v5 63 OD 


90 a-"cdefedcrefgagfercrcrcrcrc8c8d8d8e8e8f8f8edcerrrrrrrrrrrrredc" 





100 b-"rrrrrrrrcdefedcrefgagfercrcrcrcrc8c8d8d8e8e8f8f8edcerrrrredc" 


110 cz"rrrrrrrrrrrrrrrrcdefedcrefgagfercrcrcrcrc8c8d8d8e8e8f18f8edc" 


tali برع‎ tois teg 
の の の の の 
ン ا‎ 
1 Ge? 
E KI  . 
Ev 2 
CD — 





GN 7 CASAT KEE 1 1 seet ee ا‎ EE ار‎ HE ee NR Ee e at ut ンー 
ex 7 T T 1 a SE سے کے کا‎ IPIE PUE SE EE =Z E zzy ン ン ンジ ا‎ 
SE xÇ z E. Z >Z Z =Z + CEO E P ン d wë š ET 
Ze eer Da ーー デー ンー Ce 2 —— Tho خد‎ ン 





138 m trk(1,a) 
m trk(2,b) 
m trk(3,c) 
88 a Erb GE d) 


m play() 


end 





第 3 一 70 図 ベー スパ ー の 追加 


FM 音源 関係 の 関数 の 説明 を し て きま し た が , 基本 的 に は これ だ け で か な り 原 音 に 近い 音 が 出 
て し まい ます か ら , 夢中 に な っ て 楽譜 ど コ ピー され る 方 も 多い と 思い ます 。 






X68000 に は スプ ライ ト 機 能 が あり , 自分 で 定義 し た キャ ラク タ を 高速 か つ ス ムー ズ に 移動 きせ 
る こと が 可能 で す 。 こ の スプ ライ ト 機 能 を X-BASIC 上 で 使う た め の 関 数 群 が 「sprite. fnc」 で 
F, 


07774 ini 


テキ スト , グラ フィ ッ ク に 専用 の 画面 が あっ だ の と 同様 に スプ ライ トペ ターン を 表示 する 専 
用 の 画面 が スプ ライ ト 画 面 で す 。X68000 に は スプ ライ ト 画 面 が 0 か ら 127 ま で の 128 面 あ 0s E 
に つき 一 つの スプ ライ トバ パタ ー ン を 表示 出来 る の で , 画面 上 に は 最大 で 128 個 の スプ ライ トペ ター 
ン を 表示 出来 る こと に な り ま す 。 た だ だし, 同じ 水平 位置 に は 最大 で 32 個 し か 表示 出来 ませ ん 。 

128 枚 の スプ ライ ト 画 面 に は , 0 か ら 127 ま で の 番号 が つい て いて , 各 面 を プレ ー ン 0 us 
1, プ ブレーン 2 …… プ ブレーン 127 と 呼び ます 。 複数 の プレ ー ン を 表示 する 時 に は , プレ ー ン 番号 の 
小さ きい プ レー ン 上 の パタ ー ン か ら 手 前 に 表示 る れ ま す (第 3 一 71 図 )。 

まだ , テキ スト , グラ フィ ッ ク 画 面 と の 表示 の 優先 順位 は , X-BASIC で は 手前 か ら ス プラ イ 
ト ・ テ キス ト ・ グ ラフ ィ ッ ク 画 面 の 順 で 表示 きれ ます 。 
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LI as 3 w 標準 関数 と 外部 関数 `ununununununununununununununununununununununununununununununununununununununununununununununununuRnunununununti 


プレ ー ン 1I27 


第 3 一 71 図 スプ ライ ト 画 面 


る ⑧@ ス プラ イト を 使う 
スプ ライ ト 機 能 を 使う 時 の 手順 は 次 の よう に な り ま す 。 





この 手順 を も と に 作成 し た プロ グラ ム が 第 3 一 72 図 で この プロ グラ ム を 見 な が ら ス プラ イト に 
つい て 詩 内 し て に きま す 。 
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A RR 3-3 外部 関 数 RPM‏ ای یا ایز یز PR PPP Ad P PR‏ یئ ای P‏ نی Ru Ru Ru nu Ru Ru Ru‏ ا P P PO P Pd Pd PP‏ یا PM Ph Pi Ranu PU P P MN Ru nu‏ یز ای NED RM‏ اوا ارا اوا او ا 


10 /* sprite testi 
SU Int ee 


328 screen CI Ti 
40 dim char PAVED ESLE CAI TLI s も まま 





50 ER uo 9o 4 9 EE 
60 PERERECA d n 
70 152,815; dob pde dy hy od 35 Sols 
80 [2354505555559 053» 
90 وا و‎ A OOO OBA 
100 1,2,9.4,5, 6,2, 2, 75; T, Sosis s 2008 
110 L23,485,8;75,9,0,7.8, 5,4; 3, 2038 
120 AEREN CANAAN RE 
130 TORRE CARR E E 
140 5 23 本 ちち: 06: 6,8,6; 8,5,4, 9, 2 34- 
150 ا‎ S s S 5 5: Ee 
160 1,2,3,4,4,4,4,4,4, 4/4, 4; 2,8, 2 B 
170 EREK 
180 وو 2 23903 2 2 وق اتا‎ Ë 
190 ا‎ db E TE E E E EEN 


200 sp init() 

210 sp disp(1) 

220 sp def(l,pat,1) 

230 sp color(80,hsv(80,0,0)2, 1) 

240 sp color(1,hsv(0,0,31), 1) 
2580 sp_color(2,hsv(9, 31, 31), 1) 
269 sp_color(3, hsv(32, 31, 31 ) , 1) 
270 sp_color(4,hsv(64, 31, 31 ) , D 
280 sp_color(5,hsv(96, 31, 31) , 1) 
290 sp_color(6, hsv(128, 31, 31 ) , 1 ) 
300 sp_color(7,hsv(169,31,31),1) 
310 sp on(1) 

320 for x-0 to 495 
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HAWA E 3 TÉ 標準 関数 と 外部 関数 VIR PORUM POR POM PURO R ۹ Da PA RM R PA یز نیا‎ Rd Pd RM Pd R Ru Pd P P ارا اوا ایا ایا ایا ایا ایا ایا ایا ایا‎ DND ND Ru Ru Ru Ru ایا‎ PA DR ا اوا او اوا‎ ERRORI 


330 sp move(1,x,258, 1) 
340 next 





350 end 
第 3 一 72 図 スプ ライ ト 基 本 サン プル プロ グラ ム 
スプ ライ ト は 。, 表示 画面 サイ ズ が 768X512 の 時 は 使用 出来 ませ ん 。 従 っ て , 表示 画面 サイ ズ が 
512x512, また は 256X256 に な る よう に 画面 モー ド を 設定 する 必要 が ある だ め , 30 行 で 画面 モー 
ド の 設定 を 行っ て いま す 。 こ の 例 で は , 512X512 の 65536 色 モー ド に 設定 し まし だ 。 
次 に 200 行 で スプ ライ ト 画 面 の 初期 化 を 行い ます 。 こ の 初期 化 を 行う 関数 が ISP INPP T Fo 


【SP_ 00 


phar -ch 
ch 0 の 時 面 を 表示 し な い 。 
ch- 1 の 時 画面 を 表示 する 。 





これ で , スプ ライ ト 画 面 の 用 意 は 完了 で す 。 い まい よ ス プラ イト パタ ー ン の 定義 だ 入り ます 。 
40 行 か ら 190 行 まで が パタ ー ン の デー タ で す 。 一 つの パタ ー ン は 16X16 ド ッ ト で 表 る れ て , その デ 
ー タ は char 型 の 配列 に 格納 する こと に な っ て いま す 。 配列 の 数 は 16X16 の デー タ を 格納 する の 
で すか ら , 256 個 用 意 す る こと に な り ま す 。 1 ドット の デー タ は , 0 か ら 15 で 表 る れ そ の 値 が スプ 
ライ ト の パレ ッ ト コ ユー ド に な り ま す 。 こ の パタ ー ン デー タ を 定義 する 関数 が 220 行 の 「sp_det」 関 
数 で す 。 

[SP DEF] 










sp def (pc, na, ps) 


char "pec 
pc……… パ ター ンコ ー ド (0-255) 

通常 パタ ー ン は 256 個 定義 で きる の で , パタ ー ン に コー ド を 付け て 管理 し ます 。 
この 例 の 場合 の パタ ー ン コー ド は 1 で す 。 
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1 لی ۹ نا ۹ اط‎ PA ایا ایا‎ PA ای(‎ PE b PA ای‎ PA ایا‎ PU ای‎ PU ای ایا ۹ ایز ۹ ایا‎ ۹ bal PA ایز ۹ نی‎ PA ایز ۹ ای‎ LETTE TLL a PA ba PA ای‎ PA ای‎ PA زی‎ PA زی‎ PR Da PA زی ای‎ PA ای‎ ۹ d PA ای‎ PA از‎ PA نی‎ PPM PA b PA ا‎ PA ا( نی ۴۹ ا ۹ نی‎ RR M PA MAA M PA RN RV A MA M ۷ M AMA MAMA MAMA MA یز‎ 3-3 外部 関数 LL 





na…… ツ ターン デ ー タ を 格納 し て いる 配列 名 
この 例 の 場合 は , "pat" で す 。 
16X16 ド ッ ト の パタ ー ン の 場合 の 配列 の 数 は 256 個 、 8 x 8 ドッ ト の パタ ー ン の 場 
合 は 64 個 と な り ま す 。 
char "DS 
DS…… パ ター ン サ イズ 
ps= 0 の 時 ا رات‎ YY FO 
ps 三 1 の 時 16X16 ド ッ ト の パタ ー ン 














8X8 ド ッ ト の パタ ー ン は , 現在 説明 し て いる スプ ライ ト 画 面 で は 使用 出来 まき せん 。 こ の パタ 
ー ン は , 後 で 説明 する 「 バ パック グラ ウン ド 」 て 使用 する も の な の で , 普通 は ps 三 1 と な り ま す 。 

この 例 に は 出 て きま せん が スプ ライ トペ パター ン に 関し て は , あと 二 つ 関 数 が 用 意 き ん れ て いる の 
Ën MZ CC Se, CES rt, 


char pcs, pce 

pcs…… 先 頭 パ ター ン ュ コード (0 一 255) 

pce…… 最 終 パ ター ンコ ー ド (0 一 255) 

指定 男 囲 の パタ ー ン コー ド に 登録 され て いる > ター シンシン デ ー タ を クリ ア す る 。 
引数 ガー つの 場合 は , その パタ ー ン コー ド の デー タ だ け を クリ ア し , 引 数 が すべ 
て 省略 され だ 場合 は 0 一 255 ま で の パタ ー ン コー ド の デー タ す べ て が クリ ア さ れる 。 


char pc 

PC…… パ ター ンコ ー ド (0-255) 

na…… パ ター ン デ ー タ を 格納 する 配列 名 

16X16 ド ッ ト の パタ ー ン の 場合 の 配列 の 数 は 256 個 , 8 x 8 ドッ ト の パタ ー ン の 場 
谷 の 配列 の 数 は 64 個 と な り ま す 。 

char ps 

DS…… パ ター ン サ イズ 

ps= 0 の 時 E r DE s 

ps 三 1 の 時 16X16 ド ッ ト の パタ ー ン 
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IWAMA! as 3 Tu 標準 関数 と 外部 関数 Vid PU Fd PO Pd PO PU PO PU PU PL PU Pd P Pd Pi PU P PUR PA لی ۴۹ رز‎ ۴۹ PUR PRU ۴۹ ای‎ PA PUER PUERO ۴۹ لے‎ PA ای ۴۹ ای‎ PA نی ۴۹ یز‎ FA ای ۴۹ ای‎ FA ارز ۴۹ ایر ۴۹ بیز ۴۹ ای‎ PA لیر ۴۹ ای ۴۹ ای( ۴۹ ایز‎ PA ای ۹۹ ایا ۴۹ ای‎ PA ایز‎ PA UTU 


この 関数 は ,. パタ ー ン コー ド に 登録 きれ て いる パタ ー ン デー タ を 指定 の 配列 の 中 に 格納 する も 
OCT, WIT SEU, スプ ライ トバ パタ ー ン の 左 の 一 番 上 の ドッ ト デ ー タ を 配列 0 に , 右 の 一 
番 上 の ドッ ト デ ー タ を 配列 15 (7) と いう 順に 配列 255 (63) まで 格納 し て いき ます ( ( ) 内 
は 8X 8 ドット パタ ー ン の 場合 ) 。 

あま ら ちと 者 光 道 を し ま も た が , これ や で メラ オト クター シン の 定義 は 完了 て すす 次 は 2 ーッ 
の 色 を 決め ます 。 

グラ クィ ッ 多 で 256 色 モー ド の 時 は ,。 パレ ッッ トラ コート が 0 か 65255 ま て 51. Sw» 
ド に カラ ー コ ー ド を 設定 し て 使い は し た だ た が, スプ ライ ト の 場合 は パレ ッ ト プ ブロ ッ ク と いう も の が 
あっ て 一 つの ブロ ッ ク の 中 の 0 から 615 まで の パレ ッ ト コ ユ コード に カラ ー コ ユ コード を 設定 し ます 。 パレ 
ッ ト ブ ロッ ク は , 15 個 用 意 き る きれ て いま す の で 65536 色 中 240 色 を セッ ト す る こと が 出来 ます 。 し か 
L, 各 パ レッ トブ ロッ ク の パパ レッ トコ ユ コード 0 は カラ ー コ ー ド 0 (WB) に セッ トド トド し て お くく 必要 が 
ある の で , 実際 に は 225 色 し か 扱え を ませ ん 。 ス プラ イト パタ ー ン に 色 を セッ ト す る 場合 は 。 この パ 
ドジ ロック で 大 択 し ます の で , 一 つの スプ ライ トバ パタ ー ン て は 16 他 まで て ( 使 を る る と ら ほな か まき 
す 。 こ の パレ ッ ト ブ ロック に 色 を セッ ト す る の が ・「sp color」 関 数 で す 。 | 
HOP COLOR] 


ocl 三 sp color (pa, cl, pb) 


char pa 
SE 2 マシ ン ッ ト =— F (0 一 15) 








re カラ ー ュ コー ド (0-—65535) 
char pb 
aae フレ ッ ト F ツ ク の 番号 ( 1 — 15) 








int ocl 






ocl…… 設定 前 の カラ ー コ ユ コード 






COP CI» MZn»210S8wgJbkza-—T20045XH, ICE 2035, 34128. 3 
に 緑 , 5 に 水色 , 6 に 青 , 7 に マゼンダ を hsv 関数 を 使っ て 設定 し て いま す (230 行 一 300 行 )。 
これ て スプ ライ ト フ パー シン シ の セッ ト だ 完了 し た あお け て で て 後 は 表示 し て 動か すま だ は て Ge 
は まず と の プレ ー ン を 使用 する か 決め な く て は な り ま せん 。 こ の 例 で は , プレ ー ン 1 を 使用 する 
kki ew を 表示 ON に し ます 。 
[SP ON 






— sp on (pls, ple) 


char pls, ple 
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Munu nu nu nunununununununununununununununununununununununununununununununununununu nunana PA PR RP RP RM RP RM P RR RP PRA 3-3 外部 関数 LLLI 


pls…… 先 頭 プ レー ン 番 号 (0 一 127) 

ple…… 最 終 プ レー ン 番 号 (0 一 127) 

指定 範囲 の プレ ー ン の 表示 を ON に する 。 

引数 が 一 つの 場合 は その 番号 の プレ ー ン だ け 表 示し , 引数 が すべ て 省略 きれ た 場 
合 は 0 一 127 番 まで の プレ ー ン すべ て が 表示 きれ る 。 





310 有 て IZ, 1 と いう 引数 だ け な の で プレ ー ン 1 だ け 表 示す ずる こと に な り ま す 。 SOTO 
て は 使用 し て いま せん が sp on 関数 の 逆 が 「sp off」 関 数 で す 。 


[SP OFF] 








"gen 先頭 プレ ー ン 番号 (0 一 127) 

ex 最終 プレ ー ン 番号 (0 一 127) 
指定 男 囲 の プレ ー ン の 表示 を OFF に する 。 
引数 が 一 つの 場合 は その 番号 の プレ ー ン だ け OFF L, 引数 が すべ て 省略 きれ た 
場合 は 0 一 127 番 まで の プレ ー ン すべ て が 表示 OFF と な る 。 


スプ ライ トバ パタ ー ン を 動か す た め の 関数 は , TSP MOVE」 関 数 で す 。 こ の 関数 を 使う こと に よ 
ES ブラ イト パーン を デレ ー ン シセ 登録 し で 表示 する こよ と が 出来 きす 。 


【SP MOVE】 





sp move (pL X, Y, po) 


SN 表示 位置 X の 座標 (一 16 一 1007) 
y …… 表 示 位 置 Y の 座標 (—16—1007) 


スプ ライ トバ パタ ー ン の 左 の 一 番 上 の ドッ ト の 座標 を 表し ます 。 
char pl, pc 

ーー スプ ライ トバ パタ ー ン を 登録 する プレ ー ン 番号 を 指定 (0 ~127) 
inf 2 ター マ ュー ド C9 2:955) 


この 例 で は , パタ ー ン コー ド 1 に セッ ト る され て いる スプ ライ トバ パター ン を プレ ー ン 1 に 登録 し 
て 表示 Y 座 標 を 256 に 固定 し て , for~next ATER X 座標 の 値 を 変え て 画面 左 か ら 右 まで 移動 
させ て いま す (310 行 一 330 行 )。 

この sp move 関数 は 手軽 に 使 を る 代わ り に , パレ ッ ト ブ ロッ ク は 1 に 固定 され て いる た め 。 画 
面 上 で 65536 色 中 16 色 し か 使 を ませ ん 。 また だ , X68000 の スプ ライ ト 機能 に は , スプ ライ トバ パタ ー ン 
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の 上 下 左右 の 反転 モー ド や バッ ク グ ラウ ンド と の 優先 順位 を 決め る こと も 出来 ます が , この sp 
_move 関 数 で は これ ら の 機能 も 使う こと は 出来 まき せん 。 こ れ ら の 機能 を 使う た め に は , SP SET 
関数 を 使い ます 。 こ の 関数 は , sp move 関数 に 比べ る と 使い 方 が 面倒 で す が , 実際 に は この 関数 
が あれ ば sp move 関数 な どい ら な いと いっ た 感じ で す 。 


[SP SET] 


HI spset (p, x, Y, cd, pr) 


Er : char pl 
B pl…… プ レー ン 番 号 (0 一 127) 
i X. Y. ed 
x…… 表 示 位 置 X の 座標 (0 ~1023) 
y …… 表 示 位 置 Y の 座標 (0 一 1023) 
sp move 関数 の 場合 は , 画面 の 一 番 左上 が (16, 16) C», この 場合 は (0 
B で が ます 。 
cd: スジ アラ イト 設定 コー トド WO0 ONC 
スプ ライ ト の 各 設 定 を 指定 する 。 


















bit 15 0 の 時 ……: 通 常 表示 
1 の 時 …… 上 下 反 転 表 示 
bit 14 0 の 時 …… 通常 表示 


1 の 時 …… バ 左右 反転 表示 

bit13 一 bit12 使用 し な い (常に 0) 
bit11 一 bit 8 レッ トブ ロッ ク を 表 す 
bit 7—bit 0 パタ ー ン ュ コード を 表す 
char pr 
スプ ライ ト 画 面 と バッ ク グ ラウ ンド 画面 と の 表示 優先 順位 を 決め る 。 
pr 三 0 の 時 スプ ライ ト は 表示 し な い 
pr 三 1 の 時 手前 か ら BGO BGL SP 
pr 三 2 の 時 手前 か ら BGO, SP, BG1 
pr 三 3 の 時 手前 か ら SP, BGO, BGI 
BG0…… バ パッ ク グ ラウ ンド 第 0 面 
BG1…… バ パッ ク グ ラウ ンド 第 1 面 

dt スプ ライ ト 画 面 




















ここ で 問題 し な る の は , cd の 値 の 求め 方 ど だ と 思 いま す 。 例え ば , パタ ー ン コー ド 2 に セッ ト し 
て ある スプ ライ ト パ タ ー ン を パレ ッ ト ブ ロッ ク 8 の 色 で 上 下 を 反転 し て 表示 る せる 場合 の 設定 コ 
ー ド は 次 の ょ うに な り ま す 。 

cd=&B1000111100000010 
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"unununununununununununununununununununununununununununununuñunununununununununununununununununununununununununununununununununununu 3-3 外部 関 数 AMANI 


= 36610 
第 3 一 73 図 は sp_move 関数 と sp set 関数 で , te v z [i] じ 座 標 に 違う パレ ッ ト ブ ロッ 
ク を 使っ て 表示 きせ る プロ グラ ム で す 。 


19 /* sp_set test 
29 screen 1,3,1,1 
JÜ int x,y,v,h,pb,pc,cd 
40 dim char pat(255)-( 


50 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 0, 

60 0,0,0,0,0.0,0,0,0,0,0,0,0,0,0,0, 

70 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

80 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

90 0.0,0,0,0,0,0,1,0,0,0,0,0,0,0,0, 
100 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0, 
110 9.9.9, 9, 9, 9, 9, 1, 3, 1, 9, 9, 9, 9, 9, 9, 
120 9,8, 85, 05, 8, 0.0. KU. 8; BP, RW: 
130 Ibl Dd. 5 [3L 1:44 x 
140 1; 9,34,3,3423,9,3.3,4,45, رو‎ 8, d. d. 
150 1,3,4,4,4,4,4,4,4,4,4,4,3,1,0, 0, 
160 F529,4,1,4,4, 3,4, 4, 4, 4,4, 4, 3, 1, 0 
178 1,98, کو و ;05 .9720987978 7 و وق وو‎ 
180 ああ Ah ドン も 
190 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 8۰ 
200 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, O, ð, Ø 
210 > 


220 sp_init() 

230 sp_disp(1) 

240 sp def(l,pat,1) 
290 sp def(2,pat, 1) 
250 for SF to 15 


270 sp.color(i,hsv(0,0,31-2*i), 1) 
280 sp.color(i,hsv(0,31,31-2*i),2) 
290 next 
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IMANA a 3 TA 標準 関数 と 外部 関数 RR PA POR PRU PUR PU RM Ru POR Ru ای‎ RM Ru P P Ru Ru Ru Ru Ru ا‎ PRU ایا ایا‎ P POR PRU او ایا او‎ POR P لی ۴ یا ای‎ nu nu ا‎ P RM P RM PR ای ا‎ NO 


300 sp.color(8,hsv(0,0,0), 1) 

310 sp.color(0,hsv(0,0, 0), 2) 

320 sp on() 

330 input” 反 転 モ ー ド (EF) 9 or 1 "5v 
340 input” 反 転 モ ー ド (左右) 9 or ط۷۸‎ 
350 cd=sp_bit(v,h,2,1) 

360 for x=9 to 5 


370 sp move(1,x,256, 1) 
380 Sp_Set(2,x,256、cd,3) 
390 next 

400 end 

410 func sp_bit(v,h,pb,pc) 
420 int -bit 

430 vzv*32768 

440 h-h*18384 

450 pb=pb*256 

460 bit=v+h+pb+pc 

470 return(bit) 


480 endfunc 


DoR O s N a E e —= R 


第 3 一 73 図 sp move , sp set 


107 メッ X 
20 : 画面 モー ド を 512xX512 の 65536 色 モー ド に 設定 
30 : 変数 宣言 
40—210: スプ ライ トバ パタ ー ン デー タ を 配列 に セ モット 
220 : スプ ライ ト の 初期 化 
230 : スプ ライ ト 画 面 表示 ON 
240 : パタ ー ン コー ド 1 に 配列 内 の スプ ライ トバ パタ ー ン デー タ を 定義 
250 5 パタ ー ン コー ド 2 に 配列 内 の スプ ライ トバ パタ ー ン デー タ を 定義 
260 一 310 : パレ ッ ト プ ロッ ク 1 と 2 に カラ ー コ ー ド を 設定 
320: すべ て の プレ ー ン の 表示 を ON に する 
330 一 340 : スプ ライ トバ パタ ー ン を 反転 表示 る せる 場合 は 1 を 入力 
340 : 定義 関数 sp bit (v, h, pb, pc) を 呼び 出す 
引数 は 。 上 下 反 転 。 左右 反転 , パレ ッ ト ブ ロッ ク , パタ ー ン コー ド の 順 で 入力 する 
と cd に 設定 コー ド が 返っ て くる 
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٢ انا ۴۹ انا‎ A ایا ۴۹ کیا‎ PA بیز‎ ۴٣ ایا‎ PA لیا‎ PA لیا‎ PA ایا‎ PA ایا‎ PA ایا ۴۹ کیا‎ PA ایا‎ PA نیا‎ PA ای‎ PA نیز‎ PA ایز‎ PA ای‎ PR ای‎ MARIAM RR P PPP PH PAM PH PM PUMP PU PU PO P PU PO PO PA ba PA PU PU PO Pd PO PU PRU PU P PU RU PA RE PA ایا‎ PA ای‎ PA b PA ba PA ha RUE FUE PA b PAA 3- 3 外部 関 数 Fun 


360: XX 座 標 を 0 か 6495 まで 変え る (390 行 まで の ルー プ ) 
370 : パタ ー ン コー ド 1 を プレ ー ン 1 に 登録 し て 座標 (x, 256) に 表示 
380 : プ レー ン 2 に 設定 コー ド cd に より 設定 され だ スプライト パタ ー ン を 登録 し て , HE 
標 (X, 256) に 表示 し , この 時 の 優先 順位 SP>BG0> BG1 の 順 と する 
410 一 480 : 定義 関数 sp bit の 定義 
この 関数 は 与え られ た 引数 に より 設定 コー ド を 計算 し て 返し ます 


この ブロ グラ ム で は , 同じ 位置 に 二 つ の 関数 を 使用 し て スプ ライ ト を 表示 し て いま す が , 関数 
の 違い に よっ て 表示 位置 が ずれ る こと に 注意 し て 下 き い 。 

この 他 に , スプ ライ ト の 設定 状態 を 返す 「SP STAT」 関 数 が あり ます 。 

[SP STAT] 


ue stat—sp stat (pl, md) 


char pl, md 

ple プレ ー ン 番号 (0 一 127) 

11000 読み 出し デー タ の 選択 ` 

md= 0 の 時 RI ep Za 

mdi- 1 gy ポポ ショ 

md— 20H; 設定 コー ド 

md= 3 の 時 画面 優先 順位 (プラ イオ リティ ) 











int stat 
stat: スプ ライ ト の 状態 を 返し ます 。 






@ バ パッ ク グ ラウ ンド 


バッ ク グ ラウ ンド と は スプ ライ ト の 背景 と な る 画面 の こと で , 512x512 の 時 は 1 面 。 256 x 256 
の 時 は 2 面 表示 する こと が 可能 で , 1 画面 に 64 個 X64 個 ( 計 4096 個 ) の パタ ー ン を も セット する こ 
と が 出来 , 各々 の 画面 を 自由 に スク ロー ル す る こと が 出来 ます 。 

バッ ク グ ラウ ンド を 使用 する 場合 に 注意 する こと は , 一 つ は 画面 モー ド を 256X256 に 設定 し た 
場合 に スプ ライ トバ パタ ー ン が 8X 8 の 大 きる に な る の で , パタ ー ン デー タ は 8 X8 ニ 64 個 と な り 
ます 。 従っ て sp def 関数 で パタ ー ン コー ド を 設定 する 時 に は , 3 番目 の 引数 を 0 に する 必要 が あ 
ET 

Š うー つ は , sp def 関数 で 設定 出来 る パタ ー ン コー ド は 0 か ら 255 ま で の 256 個 で す が , バッ ク 
グラ ウン ド を 1 面 使う と 0 か ら 191 ま で の 192 個 と な り , 2 面 と も 使用 する と 0 か ら 127 ま で の 128 
個 ま で し か 定義 出来 ませ ん 。 

これ は , バッ ク グ ラウ ンド に 配置 る きれ る スプ ライ ト パ タ ー ン の デー タ を 記憶 し て ぢ お くだ た め に 使 
われ る だ た だめ で, この エリ ア を テキ スト エリ ア と 呼び ます 。 テ キス ト エ リア は バッ ク グ ラウ ンド を 
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MAMA 第 3 TE 標準 関数 と 外部 関数 UMA i PA ba FA hed PA hel PA had PU ha PA Da PA had PA had PA ha PA a PAO ha PA Dad PA Ba PA bad PA ha PA Ba PA Bal PA had PU ha PA a PA a PA ba PA ha PA at PPU ha PA hat PA bal PA hat PA ha PA hal PA bad PA iad PA ha PA a PA ba PA Dad PA ha PA ha PA ha PA Da PA al PA had PA hah PA ba PA ba PA hat PA ba PA a PAU hat PA ha A ba A b PA ba F 


2 面 使う 場合 は 二 つ , TC CET Eet ke 
また , 一 つの テキ スト エリ ア に は 64 個 X64 個 の パタ ー ン を 設定 出来 」。 パタ ー ン の 位置 を 指定 す 
お を. こら が 出来 ます 。 


CLITZ AON E= F) 


— x f 








用 可能 な バッ クダ ラウ ンド 








<256X256 モ ー ド > 





e 1 面 の 使用 -192 個 


2 面 と も 使用 一 128 個 


バッ ク グ ラウ ンド を 使用 し だ た サン プル プロ グラ ム が 第 3 一 74 図 で びす 。 この プロ グラ ム は 。, SSK 
256 モ ー ド で BG (バッ ク グ ラウ ンド ) を 2 面 使用 し て 各々 違う 方 向 ヘ へ スクロール さ せる も の で 
す 。 こ こ か ら 6 は, この プロ グラ ム に 基づい て 実際 に BG を 使う た め の 説 明 を し て いき ます 。 





10 /* back ground test 
20 0 も ak ای‎ Vv h pb, bE, Cd gx wv 


30 /* sprite pattern data 
40 dim char pat(255)=( 
50 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0, 
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Ti P PU PL ۹۹ ایا‎ ۹ PR PA ای‎ PA ای‎ PO PU PUR ۴۹ ایا ۴۹ ای ۴۲ ایز‎ PA ایز ۴۹ ایز‎ PA یڑ (۹ ایز ۴۹ یز‎ PRU RU PU PORUM ۴۹ ا‎ PA ای‎ PURO PURO ۴۹ یڑ‎ PA ا ۴۹ ایز‎ PA لی ۴۹ ایز ۹ ای ۹۹ بیز(‎ PA یز‎ ۴۹ RE ۴۹ ای‎ PA ای‎ PR ا‎ A ای‎ PULL ۶۹ ایز ۶۹ ایز ۴۹ نیز‎ PA زی ۴۹ ای ۹ نی ۴۹ ای‎ RM RAM ۴۹ ای ۹ ا‎ PU ا‎ PA ای‎ REPRE PM 3-3 外部 関数 AMA 








60 0,10,10,10,10,10,10,10,10,10,10,10,10,10,10.0, 
70 0,9,9,9,9,9,9,9,9,9,9,9,9,9,10, 0, 

80 0,10,9,8,8,8,8,8,8,8,8,8,8,9,10, 0, | 
9p 8; 10;9,877/7, TPE, 7, 1,217, 8; 8; 10, 9) x 
0 6,10, 9, 8, 7,6, 6, 6, 6, 6, 6, 7, 8, 9, 10, 0, | 
110 0,10,9,8,7,8,5,5,5,5,6, 7, 8, 9, 10, 0, 

120 0,19, 9, 8, 7,6,5, 4, 4, 5, 6, 7, 8, 9, 10, 0, | 
130 6,19, 9, 8, 7, 5, 5, 4, 4, 5, 6, 7, 8, 9, 10, 0, x 
140 — 9,10,9,8,7,8,5,5,5,5,6, 7,8,9, 10, 0, | 
150 0,10,9,8,7,6,6,6,6,6,6, 7,8, 9, 10, 0, | 
160 0,10,9,8,7,7, 7, 7, 7, 7, 7, 7, 8, 9, 10, 0, | 
170 0,10,9,8,8,8,8,8,8,8,8,8,8,9, 10, 0, i 
180 0,10,9,9,9,9,9,9,9,9,9,9,9,9, 10, 0, 
190 0,10,10,10,10,10, 10,10, 10,10, 10, 10, 10, 10, 10, 0, 

200 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

218...) 


220 /* BGI pattern data 
2380 dim char bg1(64)2:(1,2,90,80,1,2,90,0, 








240 1,2,0,0,1,2,0, 0, 

250 1,2,0,0,1,2,0,0, 

260 1,2, 8,90, 1; 2; 0, 84 

270 1,2,9,0,1,2,0,0, 
280 |, 2,9, 8, 1, 2, 8, 9, | 
290 L 2 E 8445 2505 0f | 
300 1,2,0,0,1,2,0,0) | 
310 /* BGO pattern data | 
320 dim char bg(64)=(0,0,0,0,0,0,0,0, l 
330 9 , 9, 9, 0,0,0,0, 0, | 
340 6, 9, 9, 9, 9, 9, 9, 0, i 
350 0,0,0.1,1,0,0, 0, 1 
360 0.0,0,1, 1,0, 0, 0, | 
370 9, 9, 9, 9, 9, 9, 9, 9, | 
380 0,0,0,0,0,0,0, 0, I 
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IMAMA! a 3 Gr 標準 関数 と 外部 関数 Vid FM FRU PA ارذ‎ PU PO Pd PUO PU یز‎ LLL LLL ای ۹ نی‎ PAU ا‎ PA ار‎ LI ای ۹ ایز ۳۹ ایز‎ LL ای‎ PA ای‎ ۴٣ ای‎ PA ایز ۴۹ ای‎ PA نی ۴۹ ای‎ PA PUERO ۴۷ ا‎ PA نی[ ای ۴۹ ای‎ PA ایز‎ PA بی ۹۹ ای‎ PA Da PA ha A had POLLO ۴۷ ای‎ PA بی‎ PULO PULO ۴۹ زی 5 ای‎ PA ایز‎ 7 


390 0,0,0,0,0,0,0,0) 
400 screen B, 3, 151 

410 SR ور‎ X) 

420 sp_disp(1) 

430 sp_on(1) 

440 sp.def(l1,pat,1) 

450 sp def (2, bg1,0) 

460 sp def(3,bg, 0) 

470 /* palet block set 

480 for isl to 15 

490 sp.color(i,hsv(84,31,28-i),1) 
500 next 

510 sp color, 8; 15 

520 sp_color(9, 9,2) 

530 sp_color(1,hsv(128, 20, 39) , 2) 
540 sp_color(2,hsv(128, 29, 20) , 2) 
558 sp_color(9, 9,3) 

560 sp_color(1,hsv(0,0,20),3) 
570 /* BG0 set 

580 cd=sp_bit(0,0,3,3) 

590 ھن‎ FITH Fed) 

600 bg_set(9, 1) 

610 /* BGI set 

620 cd=sp_bit(9, 9, 2, 2) 

638 bg fill(0,cd) 

640 bg_set(1, 9,1) 

650 /* sprite set 

6608  cdzsp bit(0,0,1,1) 

670  sp.set(1,128,128,cd,3) 

680 /* BGO & 861 scroll 

690 while 1 

700 if mx=511 then mx=9 

710 if my=511 then رھ‎ 0 
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RUA MRR ایا‎ PR PA DND P PU P ۴۹ ایا‎ ۴ Pd Pd ۷ ایز ۹ از ۷ نی‎ Ru Pd PU P ۹ ای‎ Ru PORUM ۷ POR POR d POOR ۴۹ ۷ای‎ PU RO PRO POP ENNER LLP P 3-3 外部 関数 し じじ | 


720 mx-mx*l:my-my-*l 


730 bg scroll(0,8, my) 
740 bg scroll(1,mx, 0) 
750 for i=0 to 100 : next 


endwhile 


end 


func sp_bit(v, hpb, pc ) 
int bit 
v-v*32768 


h=h*16384 
pb=pb*256 
bit=v+h+pb+pc 
return (bit) 





第 3 一 74 図 バッ ク グ ラウ ンド テス ト 


20 : 変数 宣言 
30—390 : 各 パ ター ン デ ー タ を 配列 に 格納 
配列 pat 普通 の スプ ライ トバ パタ ー ン デー タ (106x106) 
配列 bg バッ ク グ ラウ ンド F No. 0 用 の パタ ー ン デー タ (8x8) 
配列 bg1 バッ ク グ ラウ ンド No. 1 用 の パタ ー ン デー タ (8x8) 
400 : 画面 モー ド を 256X256 に する 
410: ス プラ イト の 初期 化 
420: ス プラ イト 画面 表示 ON 
430 : プレ ー ン 1 を 表示 ON 
440 一 460・ 各 パタ ー ン コー ド に パタ ー ン デー タ を 設定 3 番目 の 引数 に 注意 
480—560: 各 パ レッ トブ プ ブロック に カラ ー コ ー ド を ャ セット 
580 : 定義 関数 sp bit (v, h, pb, pc) を 呼び 出す 
引数 は , 上 下 反 転 。 左右 反転 , ツレ ッ ト ブ ロッ ク , パタ ー ン コード の 順 で 入力 す る 
と cd に 設定 コー ド が 返っ て くる 
この 場合 , 反転 モー ド は 通常 表示 , パレ ッ ト ブ ロッ ク 3, パタ ー ン ュ コード 3 
290・ テ キス ト エ リア に 設定 コー ド で 表 き れる デー タ を 満た す 


[BG FILL] 


bg fill (tx, cd) 
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h WAKA as 3 > 標準 関数 と 外部 関数 Vd PU ۴۹ یا‎ PO Pd Pd Pd Pd PU PU PU PO PU PO PU PRU PA hah PA a PU PU PUE PU PURA PULO POLUM ۶۹ ایز‎ PA ایز ۴۹ ای ۴۹ ای ۴۹ ای‎ PA ای ۴ ایز‎ PA ایز‎ PA ایز‎ PA ایز‎ RR PULO ۴۹ ایا‎ PR ایا ۴۹ ایز‎ RM ۴۹ ارز ۴۹ ایز ۴۹ ایز‎ PA ایز ۴۹ ای‎ PA ار‎ PAU ار‎ ۹ MAM 





char tx 
tx…… テ チキ スト エリ ア 
512X512 の 時 0 

256 X256 の 時 Dez? 

int cd 
cd…… ス プラ イト 設定 コー ド 
(sp set 関数 参照) 








| この 例 で は , 580 行 で 得 た 設定 ユー ド cd の デー タ で テキ スト エリ ア 1 を 満た し ます 。 ま た , Z 
| : 

| の 他 に 一 つ ず つの パタ ー ン 位置 を 指定 し て テキ スト エリ ア に セッ ト し て いく 「bg put」 関 数 が あ 
| り ま す 。 


| tt Gi be pub (tx, *; Y; cd 





| 

x abar Ix X, Y 

x B tx…… テ キス ト エ リア 
— ュー — 512x5120 0 
| 

| 


| : SC 256 X 256 D FF یا‎ 
| ー — メー テキ スト XX 座標 (0 一 63) 
| Y…… テ キス ト Y 座 標 (0 一 63) 


int cd 
cd…・ ス プラ イト 
(sp set 関数 参照 ) 








| 引数 ارد ری راس‎ d 
| BEE bg パック グラ ッ ウンド No. (0—1) 
| WI | テキ スト ェ リ ァ No. (0~1) 
| E 0 の 時 表示 OFF 

| p 1 の 時 表示 ON 








| 
| 
| 198 
| 
[ 








Vii Ra RM P PU PU PU ۹ ای ۹ ایا‎ ۴٣ ایز ای [ لی ۹ ایا‎ PU PU ۳۹ ایز‎ Pd ۴۹ ایا‎ PU PU ۹ ا ۴۹ ایز‎ PUER PU POPULO ۴۹ بیز‎ P P ۷ ایز [۶ ای ۹ ایز ۴۹ لے (۳ ایز‎ POP ۴٣ PU PU POP PU PUERO PUR ۴۹ نیا ۴۹ ایز ۴۷ بی‎ ۹ MMAR MARMARA ۶۷ یڑ 75 ای ۹ ای ۴۷ ا‎ LT 3-3 外部 関数 AMAL 


POTR حر و‎ AFIFO に 先程 モッ ト し た だ テキ スト エリ ア 1 جا ری وب 2 وب ضر‎ 


mbi. 
620 : 


630 
640 : 


660 : 


670 : 


690 : 
・ 変 数 mx の 値 が 511 を 越え を た ら mx を 0 に する 


700 


LI, 
Tay: 


730 一 740 : 


定義 関数 sp bit (Y, h, pb, pc) を 呼び 出す 

引数 は , 上 下 反 転 , 左右 反転 , ツレ ッ ト ブ ロッ ク , パターン ュー ド の 順 で 入力 する 
と cd に 設定 コー ド が 返っ て くる 

この 場合 , 反転 モー ド は 通常 表示 , パパ レット ブロ ッ ク 2, パパ ター ンコ ー ド 2 


・620 行 で 得 た 設定 コー ド cd の デー タ で テキ スト エリ サリ ア 0 を 満た し ます 。 


バッ ク グ ラウ ンド 1 に 先程 モッ ト し た テキ スト エリ ア 0 の デー タ を セッ ト し 表示 し 
ます 

定義 関数 sp bit (V, h, pb, pc) を 呼び 出す 

引数 は , 上 下 反 転 , 左右 反転 , ツア レッ トブ ロッ ク , パターン ュ コード の 順 で 入力 する 
と cd に 設定 コー ド が 返っ て くる 

この 場合 , 反転 モー ド は 通常 表示 , パレ ッ ト ブ ロッ ク 1, パパ ター ン ュ コード 1 
ブレーン 1 に 設定 コー ド cd に より 設定 さき され た だ た スプ ライ トバ パター ン を 登録 し て 座標 
(128, 128) に 表示 し , この 時 の 優先 順位 SP> BG0> BG1 の 順 と する 

760 行 まで の 間 を 無限 ルー プ 


変数 my の 値 が 511 を 越 を た ら my を 0 に する 
BG の スク ロー ル 座 標 を 1 ずつ 増やす 
mx- スク ロー ル X 座標 

mye スク ロー ル Y 座標 

BG を スク ロー ル さ る せる 


[BG SCROLL] 


スク ロー ル 双 座標 

スク ロー ル Y 座標 
各 座 標 の 範囲 は , 256X256 の 時 0—511 
512 x512 の 時 0 — 1023 





バッ ク グ ラウ ンド の サイ ズ は , 表示 画面 サイ ズ が 512 X512 の 時 は 1024 Xx 1024C, 256X256 の 時 
は 512XK502 と な り ま す 。 
この 例 で は , BG0 を 縦 方 向 に スク ロー ル さ せ BG1 を 横 方 向 に スク ロー ル き させ て いま す 。 


T90 - 


スク ロー ル が 速 す ぎる の で 空 ル ー プ で 時 間 稼 ぎ 
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760 : 690 行 へ 戻る 
以上 が , バッ ク グ ラウ ンド を 使用 する だ た め の プ ログ ラム の 流れ で す 。 
この 他 に バッ ク グ ラウ ンド に 関し て あと 二 つ の 関数 が あり ます 。 





| | i 数 : char bg, md 
| | P E ; | bg BG No. ( 0 G 1 ) 
md…… 読 み 出 て デー タ の 選択 


| E md-coom  XxHm 
| E md-i1oR YER 
md= 2 の 時 テキ スト ドキ リア 
md= 3 の 時 表示 の ON/OFF 


| | int stat 
stat…… バ パッ ク グ ラウ ンド の 状態 を 返し ます 。 








Char De X. F 
Dese dX K ECH Y 
512X512 の 時 0 

| — | 256X256 の 時 PS: 
xer TR NEXER (0 一 63) 
۱ x I es E wt TEE 0 0063) 








| : | int td 
| SN 【(d…… 引 数 で 指定 され た 値 の チキ スト デー タ を 返し ます 。 








E. 
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2 
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*6*6* 6*6 o et ote 





A-BASIC で は , 従来 の BASIC で の ステ ー ト メン ト (命令 な ど ) を 関数 化し た こと を 特長 と し 
て いま す が , 従来 の BASIC で は 繰り 返し 実行 され る 処理 を サブ ルー チン と し て プロ グラ ム の 簡 
略 化 と メモ リ 効率 向上 を 実現 し て いま す 。 

A-BASIC Ciz, 従来 の BASIC で の サブ ルー チン に つい て も 関数 の 形 で 実現 す る こと が 出来 
ます 。 定義 関数 に つい て は 第 2 章 で 説明 され て いま す が , ここ で は 2 通り の 定義 関数 の 使い 方 に 
つい て , 実際 に プロ グラ ム 中 で どの よう に 使用 きれ て いる か サンプ ルプ ブログ ラム に まう 5 Ti 
Eu. 


引数 , 戻り 値 を 持た な い 関 数 


第 3 一 75 図 は , マウ ス を 使っ て グラ フィ ッ ク 画 面 に 色々 な 図形 を 描く (こと が 出来 る プロ グラ ム 
て す 。 こ の プロ グラ ム に は , 二 つ の 関数 が 使わ れ て いま す 。 一 つ は dimwrite。 も う 一 つ は gwrite 
て す 。 こ の プロ グラ ム に 使用 きれ て いる 関数 に 共通 し て いえ る こと は 。 ど ち ら の 関数 に も 引数 や 
戻り 値 が な が いと いう こと で す 。 こ れ は , 前 述 の 従来 の BASIC て 使わ れ て いた サブ ルー チン と 同じ 
よい 方 て す 。 

X-BASIC に は , ロー カル 変数 し と グロー バル 変数 の 2 種類 の 変数 が 存在 し て いま す 。 一 方 , 従来 
の BASIC に は グロ ー バ ル 変 数 だ けし か あり ませ ん 。 従 っ て , 関数 へ 処理 が 移る 時 に 発生 する 引数 
の 考え 方 や その 結果 と し て 返っ て くる 戻り 値 な ども あり ませ ん 。 サ プ ブルー チン で は 。 メ イン プロ 
グラ ム 中 で 使用 きれ て いる 変数 に 数 値 を 入れ て ,。 その 変数 と 同じ 変数 で サブ ルー チン で 処理 を し 
て いま す 。 結 果 的 に は これ が 引数 し な る の で す が , 変数 名 を 何時 で も 何処 で も 覚え て いな けれ ば 
な うま せん し , 引数 と し て 渡し た 変数 の 内 容 が メチ ャ メチ ャ に な っ て 返っ て くる な どの 被害 も た 
ま に あ り ます 。 

し か し な が ら , な か な か 従来 の BASIC に 慣れ 親しん で いる 人 に は , この 感覚 は 忘れ られ な いで 
し ょ う 。 そう いっ た 時 に , この プロ グラ ム の よう か 関数 の 使い 方 が 便利 で す 。 








10 screen 2,9, 7 


20 int x,y,mx,my,bl,br,count 
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30 

40 

SM 

Dy 

70 

80 

90 
100 
110 
120 
130 
140 
200 
210 
220 
230 
240 
250 
260 
270 
290 
290 
300 
310 
320 
330 
340 


dim int tate(10000),yoko(10000) 
mouse(0) 
mouse (1) 
mouse (4) 
msarea (ð, 0,767,511) 
palet(tI,;hsv(32, 31, 31?) 
while 1 
msstat (x, y, bl,br) 
if bl=-1 then dimwrite() 
if br=-1 then gwrite() 
endwhile 
end 
func dimwrite() 
mspos(mx,my) 
countzcount*l 
yoko(count) =mx 
tate(count) =my 
endfunc 
/* 
func gwrite() 
inti 1 
if count=9 then count=] 
foti =1 21ء‎ 
line(yoko(i),tate(i).yoko(ji+1),tate(i+1),1) 
next 
count =0 


endfunc 


第 3 一 75 図 引数 , 戻り 値 の な い 定 義 関数 


き て この プ ブログ ラム は 。 グ ロー バル 変数 と し て int HT, x, y, mx, my, bl, br, count, 同 
に く グ ロー バル 変数 で , int 型 の 配列 tate (10000), yoko (10000) を 宣言 し て いま す 。 こ の 中 
e int 型 の x, y, mx, my, bl, br は マウ ス 関 数 用 に 宣言 し た も の で , プロ グラ ム 中 に マツ ウス 
を 使っ て いる 所 で 出 て 来 ま す 。 プロ グラ ム は , 90 行 か ら 6130 行 が メイ ンプ ロ グラ ム と な り , その 前 
は マウス の 使用 や その 移動 範囲 や 画面 の 設定 等 の 初期 化 部 分 で す 。 メ イン プロ グラ ム は , while に 
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TT 3-4 定義 関 数 RARI‏ ی۳ نی ۷ ا ۴۷ نی ۴۹ ی۷ی ۷ا ۷ نی DND‏ [ ا ۷ ND DR DR‏ ا ۴۹ ایز DNDNDNDNDNDNDNDNDNDNDNDKD‏ ایا ۷ ایا KD RP KD‏ ۴ ارا اوا اوا اوا اوا اوا اوا اوا اوا یا ۹ لیا ۹ ایا ۹ ایا ۹۷ ای یا ۷ یک 


ュ る 無限 シー プ で , 同じ 処理 が 無限 に 繰り 返さ れ ま す 。 処理 の 中 身 は マウ ス の 左 ボ タン が 押さ きれ 
だら dimwrite を , 右 ボ タン が 押さ れ た ら gwrite を 実行 する だ け の も の で す 。 あ まり に も 簡単 な 
メイ ンプ ログ ラム で す が , メ イン プロ グラ ム の 解読 が これ ほど 簡単 な こと も X-BASIC の 特長 で す 。 
それ で は 関数 の 中 へ 入っ て み ま す 。 
dimwrite ( )…… 200 行 か ら 260 行 まで が mwrite ( ) の 関数 で す 。 こ の 関数 は マウ スカ ー ソ ル 
の ある 絶対 位置 mx, my を 読み 込ん で , それ ぞ れ 縦 , 横 の 座標 を 入れ て お 〈 配 列 tate( ), yoko 
詳細 へ 配列 の 要素 番号 の count を 一 つ ず つ カ ウン ト ア ッ プ し て , 記憶 きせ て いく も の で す 。 
gwrite ( )…… 270 行 か ら 340 行 まで が gwrite ( ) 関数 で す 。 こ の 関数 は , 今 ま で 著 え 65 れ て いた 
aimwrite ( ) 関数 で の 座標 tate ( ), yoko ( ) を 吐き 出 き せる 関数 で す 。 た だ 吐き 出 き せる の 
て は 面白 な い の で , 最初 の 座標 tate (0) L yoko (0) か 6 tate (1) L yoko (1) さて Sgr 
結び , 次 に tate (1) t yoko (1) か ら tate (2) L yoko (2) まで を 線 で 結び ……| と いっ だ た だ 長谷 
m count まで 繰り 返さ せ て いま す 。 
この 一 つの 関数 の 全貌 が 明らか に な っ た 所 で , プロ グラ ム の 詳細 が 見 を えて きた 方 も いる と 思い 


E 引数 , 戻り 値 が ある 定義 関数 








3-4-1 て は , 引数 , 戻り 値 が な い 関 数 の 使用 例 を 紹介 し まし た が , ここ で は 引数 も 戻り 値 ぉ 
あり ます 。GRAPH. FNC を 思い 出し て みて 下さ きい 。 色々 な 図形 を 描く 外部 関数 が あり ます 。 し 
が し, 三角 形 を 描く 関数 は あり ませ ん で し た 。 ここ で は , 外部 関数 に な か っ た 関数 を 作り 応用 し た 
サン プル ブロ グラ ム を 紹介 し ます (第 3 一 77 図 )。 

本 題 に 入る 前 に , この プロ グラ ム で 使っ た 数 学 的 な 手法 に つい て 簡単 に 説明 し ます 。 

原点 O (0, 0) か ら R だ け は な れ て いる 点 P (X, Y) が あっ た と し ます 。 それ ぞ れ の 点 を 
結ん だ 線 分 0 一 P (RSR) と X 軸 と の 角度 が 9 だ っ た と U$ ず さ こ の 時 の 声 P (0459-35 
第 3 一 76 図 の 様 に 表す こと が 出来 ます 。 こ の 方 法 を 極座標 法 し いい グラ フィ ックス て 図形 を 描く 
時 の 座標 計算 に よく 〈 使わ れ ま す 。 


PT 
! 


X = R cos( の ) 
Y = R sin( の ) 





第 3 一 76 図 極座標 法 
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き て , この プログ ラム は triangle ( ) と いう 関数 一 つ し か あり ませ ん 。 引 数 は , 三角 形 を 構成 
す る 3 点 と を の 線 の 色 の 情報 で す 。 戻 り 値 は , 色 の 情報 が 返っ て くる だ け で , そん な に 大 き な 意 
味 を 持ち ませ ん 。 数値 関数 の よう な も の は , 戻り 値 に 命 が か が か か っ て いる の で す が , この よう な グ 
ラフ ィ ッ ク 等 を 扱う 場合 は , 戻り 値 と 同等 の 意味 を 持つ の が 実行 結果 , 即ち ディ スプ レイ 上 に あ 
ら わ れる 図形 な の で す 。 

プロ グラ ム は , 先程 の 極座標 法 で 求め られ る 正三 角形 の 3 点 の 座標 を for ルー プ で 計算 し な が 
6 triangle ( ) を 実行 し て いま す 。 
triangle( )… ぐ の この 関数 は 引数 を 七 つ 持 っ て いま す 。 3 点 の X, y 座 標 と 線 の 色 の パレ ッ ト コ ー 
SES, 


screen 2, 9, 1,1 

int ii,l=150 

float xxl, xx2, xx3, yyl,yy2, yy3, i 

for ii=9 to 128 
iz(pi(1)/60)*ii 
xxl=l*sin(i)+384:yyl=l*cos(i)+256 
xx2=l*sin(pi(2)/3+i)+384:yy2=1*cos(pi(2)/3+ji)+256 
xx3=l]*sin(pi(4)/3+i)+384:yy3=1*cos(pi(4)/3+i)+256 
triangle(xxl,yyl,xx2, yy2, xx3, yy3, 5) 

next 

end 

func triangle(a;float,b;float,c;float,d;float,e;float, f;float.cc) 
line(8,;b;cyd, cc) 
lineé(c,d;e,f;cc*2) 
line(e,f,a,b,cc+4) 


endfunc 





第 3 一 77 図 引数 , 戻り 値 の ある プロ グラ ム 


その 他 の 定義 関 





この よう に 2 種類 の 定義 関数 が あり まし た が , この 他 に も X-BASIC の 特長 を 生か が し た 関数 の 
使用 方 法 が あり ます 。 再帰 呼 出し と いう も の で す 。 こ の 方 法 は , グロ ー バ ル 変 数 と ロー カル 変数 
が ある ただ め 使用 出来 ます 。 あ る 関数 が , その 関数 自身 を 関数 内 で 使用 し て いる と いう や や こし い 
も の で す 。 パ ズル の よう な も の な の で , きっ と 説明 し ます か ら 悩 ん で みて 下さ い 。 #@ 3 一 78 図 の 
プロ グラ ム が , 再帰 呼出 し を 使用 し た も の で す 。 
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定義 関数 RR!‏ 3-4 زی AMA‏ لی MAMA HAHAHA‏ 7 ای ۹ ایا ۹ ایز ای 9 یا ۴۹ ی۷ ای ۷ ایا ۹ نی ۷ نی ا ا ۷ای ۷ نی ۳۹ NEU RU‏ یر (۴ یغ ۹ یز ۷ای ۷ی ۴۹ بی 9 ای ۷ از ۴ یز ۹ زی 0 ای ۷ڑ ۷ ی١۹‏ ای ۷ ا MR GRR‏ ای 7۹ ایز ۴ نی ۹ ایا ۹ ای ۷ایا RRR UA‏ ۷ ا(9 ای بی ایا ۹ از ۹ ایا ۹ ای ۹ ایز ۷ کا ۴۱ فی ۹ ای ۷ یا ۴ ۴ل 


int x 


» 


Bet Tee "e 
bk t S T'as fC? 
end 


func int f(a;int) 


LU asi then return(1) 


return(a*f(a-1)) 


endfunc 





第 3 一 78 図 階 乗 を 求め る プロ グラ ム 


順 を 追っ て 説明 し ます 。10 行 で int 型 変数 が 定義 きれ , 20 行 で その 変数 に キー ボー ド か ら 6 数値 を 
代入 し ます 。 KC, 30 行 で その 数 値 を 引数 と し た 定義 関数 f ( ) が , print 文 の 書式 で 表示 きれ プ 
ログ ラム を 終了 し ます 。 と て も 簡単 な アロ グラ ム で す 。 し か し , 100 行 か ら の A 行 の 関数 の 中 に は 
非常 に 大 き な 空 間 が 広がっ て いま す 。 

例え ば , X に 5 が 代入 る され て いる と し ます 。 f (5) は 110 行 の if 文 で は ひっ か か ら ず に 120 行 に 
行き ます 。120 行 の return( ) の 括弧 の 中 に 引数 と 関数 自身 に 先程 の 引数 か 5 1 引い た も の を 引数 
と し て 掛け た も の が あり ます 。 こ こ で この 関数 は , 自分 自身 を f (4) と し て 呼び 出し ます 。 再帰 
の 始ま り で す 。 

f (4) は 110 行 目 に 中文 に ひっ か か ら ず に , 120 行 に 行き ます 。120 行 の return( ) の 括弧 の 中 に 
引数 と 関数 自身 に 先程 の 引数 か ら 6 1 引い た も の を 引数 し し て 掛け た も の が あり ます 。 こ こ で この 
関数 は , 自分 自身 も f (3) と し て 呼び 出し ます 。 

f (3) は 110 行 目 に 下 文 に ひっ か か ら ず に , 120 行 に 行き ます 。120 行 の return( ) の 括弧 の 中 に 
引数 と 関数 自身 に 先程 の 引数 か 6 1 引い た も の を 引数 と し て 掛け た も の が あり ます 。 こ こ で この 
関数 は , 自分 自身 と f (2) と し て 呼び 出し ます 。 

f (2) は 110 行 目 に if 文 に ひっ か か ら ず に , 120 行 に 行き ます 。120 行 の return( ) の 括弧 の 中 に 
引数 と 関数 自身 に 先程 の 引数 か ら 1 引い た も の を 掛け た も の が あり ます 。 こ こ で この 関数 は 。 自 , 
E 2 f 1) と し て 呼び 出し ます 。 

f (1) は 110 行 目 に if 文 に ひっ か か り return(1) つま り 戻 り 値 が 1 と な り 前 の 関数 に 返っ て きま 
す 。 そこ で 前 の 関数 f (2) で の 戻り 値 の return( ) の 括 線 の 中 は , 2 * 1 と な り ま す 。 こ れ が f 
(3) に 戻り , f (3) で の 戻り 値 の return( ) の 括弧 の 中 は , 3 * 2 * 1 と な り ま す 。 これが f (4) 
CRD, f (4) で の 戻り 値 の return( ) の 括弧 の 中 は , 4 * 3 * 2 * 1 と な り ま す 。 これが f (5) 
CRD, f (5) で の 戻り 値 の return( ) の 括弧 の 中 は , 5*4*3*2*1 つ まり 120 と いう 笑 ぇ 
が 30 行 の print 文 で 表示 され る 訳 で す 。 

即ち この プログ ラム は , 最初 に 聞い て くる 数 値 の 階 乗 を 求め る プロ グラ ム だ っ た わけ で す 。 
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BASIC UNE; に ツリ て 
「BASIC.CNF」 は , X-BASIC の 起動 時 の 各種 の モー ド 設 定 می‎ 
や 外部 関数 の 組み 込み に 関す る 情報 が 書か れ て いま す 。 ここ G. 
で ちょ っ と この 「BASIC.CNE」 の 中 身 ち も の ぞい て みる こと に 
し まじ た ます 、 ジュ プル ジキル に ビ 戻 や て みて ド き さき ど 。 uc 
BASIC の ウィ ンド ウ の 中 に 「BASIC.CNF」 と いう アイ コン Hi 


d CU TO 7 = 2 می سی ہو یں ہین‎ ZC ETI TANDE 
ころ に CEDX' と 入力 し て 登録 し ます 。 こ れ で 「BASIC.CNE」 


の アイ ュ ン を ダブ ルク リッ ク す る と EDX/ (フル スク リー ët? N LS EIE 回 jen. 











ン エ ディ タ ) が 起動 され て 「BASIC.CNF」 の 中 身 が 画面 に 下 








記 の ょ うに 表示 きれ ます 。 Gi 

FREE ーー 128 EE EE o aw SON امو‎ P ور‎ 2 Z y — E. リ ü = 
ア の 設定 実行 ファ イル に *ED.X“ を 書き 込む 。 

WIDTH — BA 画面 横 の 文 : 
字数 (64 ま だ た は 96) 

CAPS = ON eee ON で 大 文字 、 OFF で 小文字 

FUNC = AUDIO nennen 

FUNC =GRAPH 

FUNC 160 Dee 組み 込む 外部 関数 の ファ イル 名 Gk. FNC) 

FUNC | -MOUSE 


FUNC =SPRITE 
FUNC =6 FICK EE EE T KS TRE : 
例え を ば, 起動 時 に フリ ー エ リア を 320K バ イト 確保 し て , 画面 横 の 文字 数 は , 96 文 字 で 小娘 字 を 使い た い 場 合 は 次 の ょ 
ICAR E SRAT, 
FREE — 320 
WIDTH - 96 
CAPS-OFF 





また だ た, 「 私 は スプ ライ ト と FM 音源 は 。 使わ な いよ 」 と いう 方 は 必要 の な い 外 部 関数 を 前 る こと も 出来 ます 。 も ちろ ん , 
組み 込ま れ て いな い 関 数 を 使 ち うと すれ ば エラ ー に な り ま す 。 
FREE = 320 
WIDTH - 96 
CAPS-OFF 
FUNC-AUDIO 
FUNC= テ GRAPH 
FUNC= テ MOUSE 
FUNC= テ STICK 
また , 新しい 外部 関数 を 組み 込む こと も 出来 ます 。 例え ば , イメ ー ジ ユニ ッ ト を 買っ た 方 は , 福袋 の 中 の 「IMAGE.FNC」 
と いう ファ イル を この BASIC の ディ レク トリ の 中 に 移動 し て か ら 下 線 の 部 分 を 追加 すれ ば X-BASIC で イメ ー ジ ユニ ッ ト 
が 制御 出来 る よう に な り ま す 。 
FREE = 320 
WIDTH=96 
CAPS-—OFF 
FUNC テ AUDIO 
FUNC= テ GRAPH 


FUNC= テ MOUSE 
FUNC-STICK 
FUNC-IMAGE REVERTITUR LTD Ou D LL E Eve IIT EL 「IMAGE.FNC」 の 追加 
変更 が 終わ っ だ ら キー を 押し た 後 で [E] キー を 押せ ば 「BASIC.CNF」 が 書き 替え られ ます 。 
ほん の ちょ っ と し た こと で す が , この 「BASIC.CNF」 が ある お か げ て X-BASIC は 非常 に 自由 度 が 高じ いも の に な っ て い 
ます 。 こ れ か ら 発 売 き され る で あろ う 立 体 ス コー プ や 各種 の 拡張 機器 に も きっ と その 機能 に 応じ た 外部 関数 が サポ ー ト る $ 
れ て 「BASIC.CNF」 を ちょ っ と 書き 替え を る だ け で X-BASIC か ら 簡 単に 制御 出来 る よう に な る で し ょ う 。 楽し みて で すね! 
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4-1] 人 外部 定義 関数 の 書式 (その 1) 








X-BASIC の 標準 関数 , 外部 関数 , 定義 関数 に つい て 第 3 章 で 説明 し て きま し た が , ここ で は 
X-BASIC の 特長 と し て あげ られ る 外部 定義 関数 に つい て 説明 し ます 。 こ れ ま で に 標準 関数 。 外 
部 関数 , を そし て 各種 ステ ー ト メン ト や 演算 等 に より 独自 の 定義 関数 を プロ グラ ム 内 に 持つ こと が 
出来 る こと は 理解 され た と 思い ます 。 し か し , あく まで も BASIC で 記述 し て あり ます か ら , 
BASIC の 救命 的 な 部 分 で ある 実行 速度 が 遅い こと や , 限ら れ た だ ステー トメ ント や 標準 関数 , 外部 
関数 で は X68000 の ハー ドウ エア の 細か な 部 分 まで は 操作 する こと が 出来 ませ ん 。 こ の よう な 場 
合 に この 外部 定義 関数 を 使用 する わけ で す 。 しかしながら, 今 ま で の よう に 何 か 基 本 と な る も の 
(ステ ー ト メン ト や 関数 群 ) が あり , それ を 組み 立て て きだ よう な わけ に いき ませ ん 。 外部 定義 
関数 は , 68000 の マシ ン 語 に より 作ら れ て いる だ た めで す 。 

マシ ン 語 に より 作成 され る 外部 定義 関数 し いっ て も 関数 で すか ら , 前 述 の よう に 引数 や 戻り 値 
が あり ます 。 ま だ この 引数 , 戻り 値 に つい じ て も 四 つ の 型 が あり ます 。 従来 の BASIC で は , X- 
BASIC の よう な 外部 定義 関数 は な い の で , マシ ン 語 を 使用 し て 外部 に サブ ルー チン を 置い て 使 
用 し て いま し だ 。 こ の 場合 。 引 数 や 戻り 値 は な くも っ ぱら メモ リ 上 に 情報 を 書き 込ん で は CALL 
する と いっ た 方 法 で し た 。X-BASIC の 場合 に は そん な 無 秩 訟 な も の で は な く 〈 く , あ る 決ま っ た 書式 
(フォ ー マ ッ ト ) に よっ て 外部 関数 を 定義 し て いま す 。 基 本 的 な 書式 は 第 4- 1 図 の よう に な り ま 
KE 


kkkkkkkkkkkkkkk イン フォ メー ジヨン ・ テ デー フ " jk KK kk k k k k k kkk kkk k k k k k 


adr init dc. return 
adr_run dë, return 
adr_end dc. return 
adr system dc. return 


adr break dc. return 


adr input dc. return 





adr .reservel dc. 1 return 
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"De Ru Ra REP PU ۴ فی‎ ۹ HD NP لی‎ PU RU D WD RDV RU REP Rd Ru RU Pd P Rd Rd E PUN M Pd Pd RON Pd Pad RO ۹ DND SD PUER RR Rau EN nununununu Jl 外部 定義 関 数 の = 式 ( その 1 ) unum 


adr_reserve2 
adr_token 
adr_parameter 
adr_exec 
reserve 

ネネ ネネ ホネ ネネ ネネ ネネ ネネ 
token_table 

* ** *k * k * * * k x kok x x 


param adr table 


param, table. 1! 


ホネ ネネ ネネ ホネ ネネ ネネ 


exec_table 


dc. | return 


de. token table 

param adr table‏ ج8 
dc. | exec table‏ 

dc. 1 0,0,0,0, 0 


トー クン ・ テ チー ブフ ルネ ネネ ホネ ネネ ネネ ネネ ネネ キネ ポポ ネオ ネ キネ ネネ ホネ ネオ キネ ネネ ボネ 


dc.b "tline ,9,0 


八 ′ フ メー ダ ・ テ サー ブナ از‎ kt و ہر عو‎ ok بد بد‎ toe و بد پر‎ KKR پر بر بر بر‎ kkk% 


.even 
dc. | param_table_1 

dc. ¥ $0002, $0002, $0002 
dc.w $0002, $0002, $8001 


"239? ルス メ ・ テ ー ブ Noe ko ok x oxoxoeokekee xoxo x 


, even 


dc,-! tline 


FUNC MAIN 22232 *************************‏ ٭٭٭٭٭٭٭٭٭×٭×٭×٭٭×٭+٭ 
even‏ . 


tlinei・・・・・ ここ か ら マ シン 語 の プロ グラ ム が 始ま る 。 


第 4 一 1 図 外部 定義 関数 の 基本 的 な 書式 
第 4-1 図 は , 関数 本 体 の 内 容 が 変わ っ て も ここ は 変わ る こと が あり ませ ん 。 こ の 部 分 の こと 


を ヘッ ダ と いい 関数 の 引数 , 


戻り 値 , 関数 名 に つい て 定義 し て いる と ころ で す 。 こ の ヘッ ダ を 大 


きく 分 ける と , 四 つ に 分 か れ ま す 。 


(1) イン フォ メー 
( 2 ) トー クン テー 


ショ ン テ ー ブ ル 
ブル 


( 3 ) パラ メー タテ ー ブ ル 
( 4 ) 実行 アド レス テー ブル 
この 四 つ に つい て , それ ぞ れ 解説 し て み ま す 。 
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{AMAN as 4 SS 外部 AE 義 関 数 اط ا‎ PU Pd Pd ۴۹ کا‎ PO PU PO PU ۹ کی ۷ ار ایا ۷ای‎ RM RR ایا‎ PUO ۹ ای‎ ۴ PU ۴۷ PURO POPULO ۹ ای‎ ۷ PRO Rd P Pd Pd لی ۴۷ ای(‎ UR URS ۴۹ لی[ ای ۷ لیا‎ ۹ PROP PRO RU ۹ ای‎ PORE POPE ایا‎ UR MMR MR 


(1) イン フォ メー ショ ン テ ー プ ブル 

上 か ら 8 行 は , X-BASIC が 起動 きれ た 時 や プロ グラ ム 実 行 時 , 終了 時 , ブレ ー ク 時 な ど に お 
cC, それ ぞ れ の 場合 の 実行 アド レス を 記述 する 部 分 で す 。 し か し , ここ は 第 4-1 図 の よう に 
return と いう ラベ ル を ふっ て お いて も 結構 で す 。 return と いう の は , 当然 この 関数 を 抜け る 部 分 
(マシ ン 語 の 終了 部 分 ) に 定義 きれ て いて 68000 の アモ ンプ ブラ 記述 で , rts と な っ て いる 必要 が あ 
まっ ま 。 €OTOfQnPb5:12, (3X 《4 た の それ ぞ れ の テー ジ ん が 堂 放 きれ て いま ず 。 

(2) トー クン テー ブル 

ここ は X-BASIC で 今 作ろ うと し て いる 関数 を , どの よう な 関数 名 に する か を 記述 する 部 分 
で す 。 こ の 例 の 場合 で は , One と いう 関数 に な っ て いま す 。 を そし て 関数 名 の 後に は 後述 する 複数 
の 関数 を 同時 に 定義 する 時 に 関数 名 どう し を 区 切る "0 "を 入れ ます 。 ま た だ た, この 後に トー クン テ 
ー ブ ル 終了 を 知ら せる "0”" も 入れ ます 。 従っ て , こ の 例 の よう に 一 つ だ け 関 数 を 定義 むる 時 は , BS 
ジャー 人 U っ 。 MO IUS Or A 

( 3 ) パラ メー タテ ー ブ ル 

ここ で は , 関数 に と っ て 一 番 大 切な 引数 と 戻り 値 を 定義 し ます 。 引 数 , 戻り 値 に は X-BASIC の 
変数 同様 , 基本 的 に は 四 つ の 型 が あり ます 。 ま た 定義 関数 で は 扱え を な か っ た 配列 を 使用 し た 引数 
が 定義 出来 る を よう に な っ て いま す 。 上 第 4-1 図 で は , $0002, $8001 等 と 書い て ある 部 分 は , これ 
ら の 引数 や 戻り 値 に パラ メー タ ID を 割り 付け た も の で , その 詳細 は 第 4-2 図 の よう に な り ま 
if 


$0081 
$0002 引数 を その まま 受け 取る 場合 


引数 を ポイ ンタ と し て 
受け 取る 場合 


引数 が 省略 出来 る 場合 





第 4 一 2 図 パラ メー タ ID 
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(Fd Fd ۴۹ ایا‎ Pd PA ایا‎ PO RO PRO Pd Rd P ایا ۴۹ ای‎ PA ای ۴۹ ایز‎ PU ۹ ای ۴۷ ای‎ PUE PA ا‎ PA ایز‎ PA ایز ۶۷ ایز‎ PROP RR ۴۹ ایا‎ PA کیا ۴۹ ایز‎ PA ایا‎ RV PA ایز‎ PRO ای‎ PU ای‎ MMR نیز‎ PA نیز ۴۹ ای ۹۷ ایز‎ RU PUE PA ای ۶۹ ای‎ PA ایا‎ unu nu nun 4-1 外部 定義 関数 の 書式 ( Z の 1 ) HAMAL 


この 他 に , 配列 を 引数 と し た も の に 次 の よう な も の が あり ます 。 


配列 の 引数 Ia が の $ 0031 
1 se mtt ید‎ $ 0032 1 次 元 配列 の 引数 の ID 
Jb qc s $ 0034 
CEE SESE $ 0038 


この パラ メー タ D を パラ メー タテ ー ブ ル に 必要 な 個数 設定 し ます 。 た だ し , 戻り 値 は ー つ だ け 
で す 。 こ の 例 で は , int 型 の 引数 を 五 つ と, int 型 の 戻り 値 が 一 つ 設定 さき され て いま す 。 

( 4 ) 実行 アド レス テー ブル 

色々 な 条件 (X-BASIC と の 接点 ) に つい て 設定 が 出来 まし た が , まだ マシ ン 語 を どこ か ら 実 
季 し て いい か 分 かがり ませ ん 。 こ こ で は マシ ン 語 の プ セ グラ が どこ か ち も 始 まる の が ぞ 突 行 じ た 
い 部 分 に 記述 し た ラベ ル で 知ら せ て や り ま す 。 こ の 例 の 場合 は , 関数 名 と 同じ (netz, 従っ 
T, 第 4 一 1 図 の 最 下 行 に ある tline : か ら プ ログ ラム を 実行 する わけ で す 。 





ワン ポイ ント テク ニッ ク X-BASIC で の 数 値 表 現 


皆さん が 日 常 良く 使っ て いる 数 値 は , 10 進 法 で す 。 X-BASIC で は , この 10 進 法 の 他 に 2 進 法 と 8 進 
法 と 16 進 法 の 数 値 を ダイ レク ト に 表現 する こと が 出来 ます 。 そ れ ぞ れ の 表現 方 法 は 次 の 通り で す 。 








O 10 進 法 
1734 






O 2 進 法 
۴۰001-07100 می‎ 10 進 法 で 4 2 
を B を 付け る こと で , 2 進 法 と 解釈 る され ます 。 





















O 8 進 法 
EOT ADe 10 進 法 で 4 6 9 
を O を 付け る こと で , 8 進 法 と じ て 解 釈 る され ます 。 











@ 16 進 法 
HT F B s. 10 進 法 で 2 0 4 7 
ا غگ‎ 2۲۱۱۶۸ EI, 16 進 法 と 解釈 る れ ま す 。 
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ここ て は 簡単 な 外部 関数 を 実際 に 定義 し て 解説 し て いき ます 。 ま ず 最 初 に , 色々 な 条件 か ら 6 決 
め な けれ ば な り ま せん 。 

ここ て 紹介 する 方 法 は , 一 般 的 に 仕事 の 打ち 合わ せ の 時 の 覚え 書き や 商品 の スペ ッ ク を 説明 し 
て ある 仕様 書 の よう な も の で , 関 数 の 目的 や , 使い 方 , 引 き 数 , 戻 り 値 等 を 列記 し て お くも の で す が , 
こう し て お く と 後 で 色々 と 役に立つ の で 自分 な り の 方 法 で まとめ て お く こ と を お 薦め し ます 。 





第 4 一 3 図 外部 定義 関数 oddeven ( ) の 仕様 
以上 の 仕様 書 で 外部 関数 を 定義 し て み ま す 。 
手順 1 
この 仕様 書 で 列記 し た 条件 を ヘッ ダ で 使用 出来 る よう に 加工 し ます 。 引 数 と 戻り 値 を 先程 の 
パラ メー タ ID の 表 で 選び ます 。 | 
5| 数 $ 0008 
戻り 値 $8001 
関数 名 (XーBASIC 側 ) 


oddeven( ) 


tgo x. 

手順 2 
ヘッ ダ の 作成 を し ます が , 第 4-1 図 も を その まま 使い , 引数 と 戻り 値 と 関数 名 だ け を 書き 換 
えま す 。 この ょ うに 変更 する 必要 の な い 所 を その まま に し て ヘッ ダ を 作る と 非常 に 能率 が よく 
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"eben PUN NP Rap oP DD Ru D DND SD DD WD Pd PULS MR Pd Pd RU ROREM PU Ru P Pd Pd PN Pd PRO PU Pd Pad RU PO Pd POR ا‎ ۷ NR Rd Pd P PR P 4-2 外部 関 Sr ze Fe の 実 な unun, 


な り ま す 。 


kkkkkkkkkkkkkkk £v72131-y3y 9-7" kkkkkkkkkkkkkkkkkkk*** 


| adr init dc. i return 

| adr run dc. | return 

| adr end dc. | return 
adr system de. return 

| adr break de. 1 return 

| adr input dc. | return 
adr reservel dc. | return 
adr reserve2 dc. | return 
adr_token dc. | token. table 
adr parameter dém param_adr_table 
adr_exec dc. | exec_table 
reserve de 0,0,90,0,0 


Kkfkkkkkkkkktkkkk トー グン ・ テ ー ブ ~ Jp k k $ kk غاد‎ kkk kk Kk Ko ok f ok kk kkk o o o 


SE TS 
SISSIES sayis 





token_table de b 


kkkkkkkkkkkkkkk A 31-93-77 از‎ TTT TTT TTT KK Kk KK kK ¥ 


.even 
param adr table dc. | param table 1 
param table. 1 dc. e 39888 

dc. w وچ‎ 


KAYKRRKKKKKkkAAK ツー ッ ゴ リウ ア ト ” レス ・ テ ー ブ 7" kkkkkkkkkkkkkkkkkkkkk** 


even 
exec table dc. 1  addevan 


بر و تو ید یو یو یور یو یو عو وع وع یب dopeeeeeeoeeeeee FUNC MAIN‏ 


. even 


oddaven: Wi O مات ط7 8 تو کر جڑ 5ڑ‎ C+. 





第 4 一 4 図 ヘッ ダ 部 分 


手順 3 
oddeven: か ら プ ログ ラム を 作り ます 。 引 数 の ID や 戻り 値 の ID は わか り ま し た が , 実 際 の プ 
ログ ラム 中 で どの よう に 渡る され て くる か に つい て 説明 し ます 。 
この oddeven : の プロ グラ ム 第 4 一 5 図 の 中 に . 


move.1 12 (Sp), 0 
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-IAMAN 第 4 T $ 外部 定義 関数 nunununununununununununwnununununununununununununununununununununununununununununununununununununununununununununununum 


と いう 部 分 が 先頭 に あり ます 。 こ れ は , 文字 列 の 格納 され て いる メモ リ の 先頭 アド レス を a0 に 
複写 し て いま す 。 引 数 は スタ ッ ク ポ イン タ に 渡さ れ を そこ か ら , 改め て レジ スタ に 渡る れ ま す 。 
str 型 の 引数 の 場合 に は , 自動 的 に ポイ ンタ (格納 し て ある メモ リ 番 地 ) を 渡す 約束 に な っ て い 
iT, その 他 の 数 値 の 引数 は , この 例 の よう に 記述 し て , 値 を a0 に 複写 し ます 。 

複数 の 引数 が ある 時 は , 次 の よう に 2 個 目 以降 の 引数 が 渡る きれ ま す 。 


move.l 12(sp), 
move.l 22(sp), 
move.l 32(sp), 
move.l 42(sp), 


XXe 1 番目 の 引数 
XXe 2 番目 の 引数 
xxv 3 番目 の 引数 
XXe 4 番目 の 引数 


xx は プロ グラ ム 内 部 で 使用 し て いる レジ スタ で て, 
ュー ザー が 決め ゆる 。 ポ イン タ の 場合 は ax C, 値 の 場 
合 は dx に 渡し た 方 が 便利 で す 。 


oddeven: move. | 12(sp),að 
move. | #-1,d9 
count addq.! SI, dN 
tst.b (a9)+ 
bne count 
and. | 809 
move. | d9,ret_param+b 
Circ d0 
lea. | ret_param(pc),a0 
lea. l error_comment(pc),al 
return rts 
even 
ret_param dc.w 
de. I 
ds. 1 1 


error comment dc. b 
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"Terror", 0 











RON M RUN Id PR Rd RU ۹ ای‎ Pd PUR d RR Pd Pd Rd Pd Pd RE Rd Pd Pd Pd Rd POR RND یا‎ Pd PR Pd Pd Pd ا ۴ کی‎ NR NR Pd Rd Pd Rd REN POM PUR ۹ ۷ی ا ا‎ 4- 2 外部 関 数 E de の 3 ا‎ HAMAL 


end | 


第 4 一 5 図 oddeven ( ) プロ グラ ム 本 体 





at, 戻り 値 で す が , 三 つ の レジ スタ に セッ ト し ます 。 戻り 値 を 格納 し た メモ リ の アド レス 
t. エラ ー の 場合 の メッ セー ジ を 格納 し た メモ リ の 先頭 アド レス と , 関数 の 終了 時 の 状態 を 表 
TEST 
格納 する レジ スタ は 次 の 通り で す 。 
dO : 正常 終了 の 場合 は 0 
a0: 戻 り 値 を 格納 し た メモ リ の アド レス 
a1: エ ラー メッ セー ジ の 格納 し て ある メモ リ の 先頭 アド レス 
کک‎ ZT. ret param と し て ある 部 分 が 戻り 値 を 格納 し て ある 所 で す 。 SCT EE 
ろ の 説明 で す が , 前 述 の 通り a0 に 文字 列 の 先頭 アド レス が 移 き れ , d0 に は ー 1 が セッ ト さ れ ま し 
J (1, 2 行 目 )。 次 に tst.b (a0) +T, 文字 列 が 0 が どう か (終わ りか ど 2435) ا ا‎ Lx 
が ら ル ー プ カウ ンタ の dO0 を イン クリ メン ト (1 加算 ) し て いき ます 。tst.b/ (a0) FRETE, a0 
を 1 加算 し ます か ら 文 字 列 の 引数 格納 アド レス を 1 文字 ずつ 更新 し て いき ます 。 tst.b(a0) +T 0 
を 検出 し た 後 , and.1 #1, dO と いう 命令 で , 最 下 位 ビ ピット だ け を その まま に し て 残り 0 の 31 ビ ッ ト 
まま て を 0 に し ます 。 こ うし て し まえ ば , 最後 に 残っ た 最 下位 ビッ ト が 0 な ら 6 偶数 で . 1 な ら 6 奇数 
臣 e う こと に な り ま す 。 


手順 4 


ss し て 机上 で コー ディ ング ざき 蛇 860m SE. X68000 付 属 の ED.X を 使い 入力 し て い ぃ 
上 ee ま 入力 する 時 に は , نوہ‎ INET S し し て アセ ャ ン ウ の シー テイ お る CE 
MELT TFIO., CDR, AS. tC LK.X *OHL CT Ev7wvEUTZUCTSU, 


AS.X を 使用 する 時 は , フ ァイル ネー ム ム ろ に ※ ま * ネ . ら を 指定 ,LK.X で リン ク す る 時 は 。 フ ァ イ 
ルネ ー ム に ※※* ネ .O ひ を 指定 し ます 。 
手順 5 


出来 上 が っ た 関数 の ファ イル ネー ム は ,*※* ネ * ネ .X と な っ て いる の で す が . X— BASIC の ディ 
レク トリ の 中 に ある 外部 関数 は 全て *※*※ ネ *.FNC と な っ て いま す 。 実は 。 外 部 関数 は *※* X 
だ っ だ の で す 。 これ は , 前 述 の ヘッ ダ に 秘密 が あり , ファ イル ネー ム を *※※ ネ XX か ら ※※ ま 
還 ( し と 変更 する だ け で よい の だ す 。 


本 ホネ ホネ ポポ ポキ ポキ キキ イン フォ メー ソコ ョ ソン ・ テ ー ブ وع عو وع بر‎ KE KK Kk kk OK 58 





adr init dc. | return 
adr run dc. | return 
adr_end deê. | return 
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1۸ ۷ن۹‎ as 4 T 
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adr system 
adr break 
adr. input 

adr reservel 
adr reserve2 
adr token 

adr parameter 
adr exec 


reserve 


し る そそ を すそ を を を を を も るる] 


token_table 


ホネ ネネ ネネ キネ ネネ ネネ キネ ネネ 


param_adr_table 


param_table_1 


* * * * * * * * * * * xv * ex 


exec_table 


* * با‎ * k * £ £ £ £ £ £ £ x 


oddeven: 


count 


decd 
dc.] 
091 
de. 
de. 
de. 1 
dc. 1 


لاوا اوا ایا اوا ایا ایا اوا ایا ایا PRU RU PA‏ ایا ایا ایا PRO‏ ایا ایا ایا RU PU‏ ایا ایا PRU‏ ای PA‏ ای ایا ایا ایا ایا ایل ایا ایا ایا ایا ایا ایا ایا ایا PU‏ ایا PA‏ ایز( ایا PA‏ ایا ایا ایا ایا PU‏ ایز PU FA‏ ایا Pd Pd FA‏ لیا 外部 Se 義 関 数 NM POM Pd Pd FA hal PU PA‏ 


return 

return 

return 

return 

return 

token, table 
param adr table 
exec table 
0,0,0,0,0 


トー クソ ・ テ ー ブ ノブ ], 2 2 2 2 £ k $ 2 $ 2 * £ £$ £ 2 £ £ £ £ 2 2 £ 2 2 2 KKK 


EEN‏ 3س0 
ここ EXIT‏ 
SEA‏ 
Wi "‏ 





A* 343-93 3-2"7 Mkkieokookkokeokb x oko غاد غاد اد اد اد اد اد بد اد غاد‎ GE 


, even 


dc. | 


dc. w 


dc. ¥ 


param table 1 
` FERES 
جوف‎ 


Y` sIFR レス ・ 了 テー フル ネネ ネネ ポポ ネネ ポポ ネネ ネネ ポポ ポポ ネネ ポポ ネオ ネ 


. even 


de. | 





FUNC MAIN ネネ ネネ ネネ ネネ ネネ ネネ ボネ ポポ ネネ ホキ ネネ キネ ネネ ネネ キネ 


even 
move. | 
move. | 
addq. | 
tst.b 
bne 


and. | 


12(sp),að 
,1۔8‎ 0 

#1, dp 
(a0) + 
count 
81, 0 








(RRR لن نیا نا فی‎ pop PDP UR RRR یر ایا یا یی از ای‎ nununununununununununununuRunuRununununuRuRuRuRuRuRununununuRuRuRuBMuAuRuRu 4-2 外部 関 数 AE 義 の 実 Se HAMA 


dÜ,ret param*6 
dð 


ret_param(pc),að 











lea. 1 error comment(pc),al 







return 





ret param 





error comment 





第 4 一 5 完成 し た 外部 定義 関数 oddeven 


BB 4 — 6 図 が 完成 し た 外部 定義 関数 の ソー スリ スト で す 。 手順 どおり 実行 る され て いれ ば 。 次 に 
あげ る 第 4 一 7 図 の リス ト を 実行 し て 次 の よう な 結果 が 出る と 思い ます 。 た だ し , 出来 上 が っ た 
休部 関数 は BASIC.CNF に 登録 し て お か な けれ ば な り ま dis 


str a=X-BASIC”,b=” 外 部 定義 関数 
int X, y 
x=oddeven(a):y=oddeven(b) 

PINT KY 


end 





第 4 一 7 oddeven の サン プル プロ グラ ム 


この ブロ グラ ム で , a は 7 文字 で b は 全角 で 6 文字 つま り 半 角 文 字 と し て 数 えた 場合 12 文 字 と 
の こと だ に だ びり ます 。 EST, oddeven (a) は 1, oddeven (b) は 0 toD bt RETI 
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AAL — 180011 5 40885. T T 844 0, — ہس مس‎ Mm i. Ea. WER. on ن‎ qnm 


rura 








(MR Ee 4 Gs 外部 定義 関数 Aununununununununununununununununununununununununununununununununununununununununununununununununununununununununununun 











4-3 外部 定義 関数 の 書式 (その / 





4-2 で 紹介 し た 外部 定義 関数 で は , 引数 と し て str 型 , P e Et eg て 作り まし だ も し が 
سر کت‎ Ee 
あり ます 。 を その よう な 中 に , 引数 に 配列 を 使い だ い 場合 が 出 て きま す 。 外 部 関数 の 中 の AUDIO. 
FNC で 出 て きた a rec, a play £ 2*< を う で す 。 基本 的 に は , 前 述 の の 外部 関数 の 定義 法 は 付属 の 
外部 関数 と 同じ 構造 で ある の で , ユー ザー が 配列 を 引数 と する 関数 を 作成 する こと も 可能 で す 。 

> れ で は 。 実 際 に 配列 を 引数 と する 外部 定義 関数 を 作っ て み ま す 。 こ の 関数 の 仕様 書 は 第 キー 
8 図 の よう に な り ま す 。 関 数 の ソー スプ ログ ラム は 第 4 一 9 図 の 通り て す 。 





第 4 一 8 図 外部 定義 関数 sum ( ) の 仕様 


ポポ ポポ ポポ ポポ ポポ ポポ ポポ イン フォ メー サヨ ソ ・ 了 テー フル ポポ ポポ ポポ ポポ ポポ キキ ポキ キキ ポキ 





adr_init dc.) return 
adr_run dc. | return 
adr_end des) return 
adr system de. 1 return 
adr break dc. | return 
adr_input de.) return 
adr reservel dc. | return 
adr reserve2 81 return 
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TMM RM ای نیا لی ایی یر ای ا ایب ی۴ ۱ ای ار نیا یز یز ایا ای یا ایا ا لن ان(‎ RUP یا یا ای‎ ROI A H D رای ا ای ا‎ PP یر‎ RP AP 4-3 外部 定義 関数 の 書式 ( z の ) 2 ) Lu il 


adr token 
adr parameter 
adr exec 


reserve 


* * k k ke * * * * £ k * k x 


token_table 


X K Kk k k k k k k k K k K k k 


param_adr_table 


param table 1 


ネネ ネネ ネネ ネネ キキ ホネ ネネ 


exec_table 


K k Kk kk kkk k k kkk k 


sum: 


nextadd 


return 


ret_param 


error_comment 


dc.1 token_table 
dc. param adr table 
de. 1 exec table 

dul 0000 


yokookokokokoooloelolooolokoeokoleloeooeek‏ وت اچ رر 


تی 
dc.b "sum" ,0,0‏ 


N 34-33-77 kkk kk ok kk KF Fk o ید بد عو یز ید‎ f بھی‎ ok ok و اد‎ ok 
. even 

de. | param table 1 

dc.w 

dc.w 





پچ و بر ید بد ید بد ید عو عو عو عو یع دع +ار٭7- Y” IIP VA:‏ 
even‏ . 

dc. | sus 

FUNC MAIN XX2323223533 33 30lP3ÑÚlXíAfIIIIIKIKÇYƏICKIxI>IIAIIIIHEI 
. even 

move. | 12(sp),a8 .... ポイ ンタ ー の ポイ ンタ ー 
move. | 22(sp),d2 

lea. | 180(a0),a0 ・…・ 配 列 の 先頭 アド レス (*" イ ンタ -) 
6 dé 

move. | (a9)+,d1 

add. | d1, dp 

Subq. | 8ٗ" 2 

cmp. | 8) 2 

bne nextadd یم‎ dass Dp n まで ルー アデ 
move. | dÜ,ret param*6 

crie. de 

lea. | ret param(pc),a0 

lea. | error comment(pc),al 

rts 

.even 

dc.w 

des] 

ds. | 1 

dc. b ”error”, ð 
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1۸ ۷ا‎ ۴۹۷ as 4 T 外部 定義 関 ZX P4 Pd POR A MR M R M FA MA ای‎ PA ای‎ PA ای‎ RU RO POOR PURO PU Pd RO ۹ b PAM FA ا ۹اا‎ RM ایا‎ PA ای‎ Pd PURO PU ۴۹ ای‎ PU ۷ ۹ایا‎ uu Ri ۴۹ ای ۴ ایا ایا ۹ یز ۴ای‎ PA لی‎ PA لی ۹ لی ۹ ای‎ PA ای‎ RU DH DND اط‎ PA ای‎ PR MG PA ایا ۷ ا‎ RERO REN PN 


end 
第 4 一 9 外部 定義 関数 sum の ソー スリ スト 


この プロ グラ ム を 実行 きせ る X-BASIC の サン プル プロ グラ ム は , 第 4 -10 図 の 通り で す 。 


18 int a,x=19 

28 dim int d(9):(1,2,3,4,5,6,7,8,9,18) 
30 a-sum(d,x) 

40 print "totalz",a 

59 end 

run 

total= 55 

Ok 

E 


第 4 一 10 図 sum の 使用 例 


ご 覧 の ょ うに , 引数 と し て 配列 を 渡す こと に より , 非常 に 簡略 化 き れ た だ 記述 に な り ま す 。 この 
方 法 を 使う こと に より , た くき ん の 引数 を 必要 と する 関数 に は , 配列 を 渡す こと が いか に 能率 の 
良い 方 法 か が 分 か り ま す 。 

実際 の 配列 の 引き 渡し に つい て は , 第 5 章 に 事例 が あり ます の で , それ も 参考 に し て 下さ 8 い 。 


引数 を 戻り 値 と し て 使う 人 部 定義 関数 


定義 関数 で 説明 し た グロ ー バ ル 変 数 と ロー カル 変数 で , 引数 を 持た な い 関数 の 定義 を 解説 し ま 
LED, これ と は 反対 に 戻り 値 を ダミ ー に し て し まい , 答え を 引数 に 返す 方 法 が あり ます 。 こ れ 
は , 外部 関数 の MOUSE.FNC の mspos で マウ ス の 位置 を 引数 に 返す 方 法 と 同じ で す 。 こ れ は , 
引数 と し て ポイ ンタ (引数 と し て 使っ た 変数 の メモ リア ドレ ス ) を 受け 取り , 結果 を を その ポイ ン 
タ へ 返す も の で す 。 こ の 方 法 を 使う と , 関数 の 基本 概念 で わっ た 引数 に 対す る 戻り 値 と いう こと 
が 成り 立た な く な る ほか, 戻り 値 を 複数 に する こと が 出来 る 点 に 注目 で きま す 。 

関数 の 中 に は , グラ フィ ックス 等 に よく 使う 座標 計算 で は , 平面 で は x, Y が あり , 立体 に な 
れ ば x, y, z と 三 つ の 座標 系 が 必要 に な り ま す 。 こ の よう な 場合 , ある 条件 の も と で その 関数 
を 通せ ば 座標 情報 が x, Y で 返っ て くる よう な 関数 も 作る こと が 出来 ます 。 こ うい 2 う 場合 に は , 
*※ ミ ー の 戻り 値 を 設定 し な けれ ば な ら な い の で す が , それ は その まま 使わ な けれ ば いい の で す 。 
それでは, 4-3-1 で 定義 し た sum ( ) を 改造 し て , 引数 に 答え を 返す 方 法 を や 見 て み ま す 。 
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AP PR P ایا ۹ ایا ۹ ایز ۹ ایا‎ P PUR P ای‎ PP PUO PON d PUR Ru Pd RU PU PO HMR RM ۳۹ ای‎ POR d POOR POR d PROP POR ۷ ای ۷ا‎ ۹ PULO P RU RR 4-3 外部 定義 関 数 の 書式 ( を の 2 ) MAMA: 


kkk k k‏ ید عو عد ددع (7733-y3y* FT O k k‏ ٭٭٭٭٭٭٭٭٭٭٭×٭۴۴8 


adr_init 
adr_run 
adr_end 
adr_system 
adr_break 
adr_input 
adr reservel 
adr reserve2 


adr token 


adr parameter 


adr exec 


reserve 


し を を そそ を を を すす すす する する] 


token_table 


[を を を を を を る を を を を を る 


param_adr_table 


param_table_1 


ボネ ネネ ネネ キネ ホネ ポキ ネネ 


exec_table 


kkkkkkkkkkkkkk* 


KSE e ۰ EE A Š > S GE 
ER Suo کچھ‎ 


nextadd 


dc. 1 
de, | 
dè, | 
86 1 
8 
dc.l 
86+ 
dc. | 
de. 1 
de. 1 


dê. | 
de. 


return 
return 
return 
return 
return 
return 
relurn 
return 
token_table 


param adr table 


exec table 
0,8,0,0, 9 


トー クン ・ テ ー ブ hpkkkkkkkkkkkkkkkěkkkkkkkk*kx*ý 


dc.b 


"SR, 9, 0 


A*33-53-3-7"7 kkk kk kk FF f fk Kk Fk ok kk sk ok ok ok kk Kk 


. even 


dc.w 


param table 1 





$8832,$08802, $8012 
soot 


ツー ラコ ゴウ アト ~ レス ・ テ ー ブ ]*A333433336433 3353335343 2323533351 


.even 
dc. 


ual 


FUNC MAIN xoiookekoroelokoekokoeloreekoloeokoeeeek 


.even 


move. |] 


move. | 


lea. | 
CH, f 
move. | 
add. | 
subq. | 
cmp. | 


bne 


BEE ここ こい ここ ここ へ 
move, l 





12-0 6۶۵9 


が >: きま 第 3 引き 数 の ポイ ンタ ー を 受け 取る 


dU 

(a0) *.dl 
di, dp 
#1,d2 
#0, d2 
nextadd 


SCHEER ECEE چیہ — بر ++ومصع‎ 2 b E + 
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| (RNRN a 4 = 外部 XE 義 関 JT FORO Pd PO4POLRO RO P P Pd RO PU RU Pd Pd ۷ ای‎ PU PRO PU POL یا یا ایا ایا یا ایا‎ PORRO PROP P PRO Rd RO PROP ایا ایا‎ RO nununuRnunununununununununununumi 


move. Í dQ, ret_param+6 
dp 


ret_param(pc),a9 





error_comment(pc),al 


return 


ret param 


error comment 1 "error ,9 





第 4 一 11 図 sum を sum 1 に 改造 する 


第 4 -11 図 の 様 に , 先程 の 関数 に 第 3 の 引数 (int 型 で ポイ ンタ 渡し ) を 付け 加え ます 。 そして, 
戻り 値 を 返す の と 同時 に , 3 番目 の 引数 ほし て 受け 取っ た 引数 の ポイ ンタ へ も 答え を 返し ます 。 
を の 結果 を 見 る た め , 第 4 -12 図 の X-BASIC の プロ グラ ム を 実行 し て みて 下さ い 。 ご 覧 の 通 5, 
次 の よう な 答え が 確認 出来 る は ず で す 。 | 


18 int a,b, -0 

20 dim int d(9)-:(1,2,3,4,5,6, 7, 8,9, 10) 

certnm rr 引き 数 が うつ に な っ て いる‏ او وہ و وہ 
print "totall=”,a‏ 40 

58 print "total2-2",b 

run 

totall= 55 

total2= 55 

Dk 

8 





第 4 一 12 図 sum 1 の 実行 例 


ご 覧 の よう に , 引数 と し て 渡し た は ず の b に 戻り 値 4 と 同じ 答え が 格納 され て いま す 。 こ の は よ ょ 
うに , ポイ ンタ と し て 引数 を 渡す こと で , 引数 と し て 渡す 変数 の メモ リア ドレ ス が 分 か が り ま す 。 
前 述 の 通り , 配列 の 引数 は ポイ ンタ を 渡し て いま すか ら , 複数 の 答え を 返し た い 場 合 は 答え を 格 
納 す る た め の 配 列 変数 を 渡し て や れ ば いい わけ で す 。 
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(RR PAR RP PM P یر ۷ای ۷ی ای ای ۷ ایر لیا ای‎ ۴۷ Rd RO PU Rd P P Rd PO P PRO PO P PO PO ۴ ۴ ۴۷ P PU .ی۴ لا یا۴ لی ا۴ل الا ۷ا ۹لیا ا لی ا ای ا لی ای ا ا‎ -4 シン シス テム コー ルル と IOCS コー ノレ ۱ظ×‎ 


4 一 4 シス テム コー ル cI0C じ 5 コー ル 





Li UU d 
X68000 に は 非常 に 使い 易い IOCS (Input Output Control System) が あり ます 。 これ は IPL 
(Initial Program Loader) と 一 緒 に ROM (Read Only Memory) 内 に あり , 電源 を 切っ て も 
内 容 は 消え を ませ ん 。 こ の IOCS に は , Human68k や X-BASIC で も 使用 し て いる 便利 な 々 シン 語 
レー チン が ギッシリ 詰っ て いま す 。 まだ ただ, 月 umal66k て す ポ ボー トド ト さ きれ て いる シス テム テー ル 
b この 1OCS を 使用 し て プロ グラ ム みき され て いま す 。 
外部 定義 関数 で は , マシ ン 語 に より ユー ザー が 独力 で 色々 な 処理 を 作ら な けれ ば な り ま せん が , 
この IOCS や シス テム コー ル を 使用 する こと て 広 男 囲 に 渡り , X68000 の ギッシリ 詰っ た 機能 を 使 
ほこ 人 な すこ と が 出来 を の で す 。 


ID じ S の 使い 方 





IOCS ュ ユール を 使う 場合 の カギ は , trap 打 5 と いう 命令 で びす 。 これ は , 68000 の マシ ン 語 命令 の 
中 で も 特殊 な 命令 で , X68000 の 場合 , この 命令 を 受け 取る と デー タレ ジス タ 0 (d0) に 書き 込ま 
ログ 


れ て いる 番号 の サブ ルー チン へ 処理 を 移し , その 処理 が 終わ る と trap 81150070040472 6 7 
ラム を 続け ます 。 

この 番号 (d0 へ 書き 込ま れる 番号 ) の こと を 1OCS コー ル 番 号 と 言っ て 200 近 く の サ プ ブルー チン 
が あり ます 。 こ の サブ ルー チン に つい て は , # 5 章 に 外部 定義 関数 で 使用 し た も の の 詳細 を 説明 
し て いま す が , この 他 の も の に つい て は X68000 活 用 研究 1 (塚越 一 雄 著 ) に 詳し く 載 っ て いま す 
め て 参考 に し て 下さ い 。 

それ で は , 一 般 的 な IOCS ユー ル の 方 法 を 第 4 一 13 図 に 記述 し ます の で , 第 5 前 の 記述 も 含め 参 


に し て 下る きる es 








前 の アロ グラ ム か ら の 流れ 


0 9 #$xx,d9・・・ xx 部 分 に IO 〇 OCS コー ルル 番号 が 入る 


(その 他 の レジ スタ を セ モット) 
trap 415 
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15 ۷۴۷ 第 4 KE 外部 定義 関数 PPP PU Fd ۴۹ ایا ۹ ایا ۴۹ ایا‎ Pd PU PO RO PRU Pd PRU Rd PURO POR POP Pd ۴۷ ایز ۴۹ ایا ۴۹ ایا ۹۷ ایا ۹ ایز‎ PRU PU ۹ ایز ۴۹ ایز‎ HNH ۴۹ ای ۴۹ ا‎ POPE ۹ بی‎ PROPORRE RO PURO RO PU RO POP ۴۹ ای‎ ۴٣ ای ۹ ا ۷ ا‎ ۴ NAMA 


| 次 の 処理 へ x 


第 4 一 13 図 IOCS 使用 法 


20451: X-BASIC iz, ユー ザー の 能力 に 合わ せ て BASIC 自身 も 進化 し て いき ます 。 ま た 進 
化し た BASIC は 記述 も 簡単 に な り , 理想 に 近づい て いき ます 。 し か し , ユー ザー が 怠け て いる と 
BASIC 5 進化 せ ず その ま まま てい まま 。 ABASIC と 半 そ う ぃ いう BASIC な の で よ 。 


dle 42 10 CB コー ル の 実習 


8 C, ここ て 実際 に IOCS ユー ル を 使用 し た 外部 定義 関数 を 作っ て み ま す 。 関 数 の 内 容 は 第 4 一 
14 図 の 仕様 書 通 り で す 。 












第 4 一 14 図 外部 定義 関数 cur prn ( ) の 仕様 


IOCS ルー チン の 中 で 文字 列 を 画面 に 表示 する サブ ルー チン と , 指定 位置 へ カー ソル を 移動 き 
せる サブ ルー チン が あり ます 。 それ ぞ れ の IOCS ルー チン の デー タ は 第 4 一 15 図 の 通り で す 。 


KEN یں‎ See کا ہے‎ RS T N T 

Locsa-»m5*$9:3$21 

指定 レジ スタ : a 1 . 1 (ロン グ ワ ー ド ) に 文字 列 先頭 アド レス を 格納 する 

処理 内 容 : a 1 に 格納 され て いる アド レス か ら 1 文 字 ず つ 現 在 の カー ソル 位 
置か ら 表 示し て いき ヌル コー ド (O) を 発見 し た と ころ で 終了 す 
51 

I GG: SB. LOCATE 

# ょ の OCS コー ル 番 号 :$23 

指定 レジ スタ : d1. w・・・ カ ー ソ ル 桁 位置 

d2.W・・・ カ ー ソ ル 行 位置 

MEME: d 1 に 格納 し て ある 桁 位置 と d2 に 格納 し て ある 行 位置 に より 指 

定 さ れる 場所 へ カー ソル を 移動 する 。 


第 4 一 15 図 cur prn に 使用 し た IOCS の デー タ 
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۷ یز ای۷ لی ۷ی ۹ ای لی ۷ی یز لی ا لی لی یا ای لی ۷ی‎ M RENE RU لی لی‎ Rununuñunununununuñununununununununununununununununununu, -4 シス テム コー ルル と JOCS ユー ル unum 


第 4 一 16 図 が この 関数 の ソー スリ スト で す 。 仕様 書 の 通り , 関数 名 は cur prn で す 。 こ の は ア 
ンダ ー バ ー と 言っ て スペ ー ス が 使え な いよ うな 場合 に 使い ます が , 第 5 章 の 事例 で 紹介 する 外部 
定義 関数 の ツー スリ スト の 中 で 数 多く 出 て きま す の で 注意 し て 下さ い 。 


ネネ ポキ ネネ ネネ キ ネネ キ キキ ポー (7733-937: 7-7" 2333535534 345434 34/4 Á4kRk*222%3%3% 


adr_init dc. | return 
adr_run dc. i return 

adr end de, | return 
adr_system de. 1 return 
adr_break de. | return 
adr_input dc, 1 return 

adr reservel dc. / return 

adr reserve2 dc. | return 

adr token dec. 1 token table 
adr parameter dc. f param adr table 
adr exec dec. 1 exec table 
reserve dc. l 0,0,0,0,0 


kkkkkkkkkkkkk*žk R77: 3-77 RMkesokieokokekeokekeekeokookoookobokokelekeeeeoek 


token_table dc.b wees", 9, 0 


KARRRRKKRKKRKKRKKKKA A 23-33-77 UuuXokeokeokeookokojokokeolokolokoookokolokekoek 


.even 
param adr table dc. | param table. _ 1 
param table 1 dc.w  $8888,38882,$89812 
dc.w $8881 


Xokckolelelelclbooelcob. "رہ‎ 9197 MK وپ‎ 3-77 Nypekkelokooeorekooreorokoeololooeex 
. even 


exec_table dc. | Eur Grp 


キネ ポポ ポポ キネ キキ ネオ キネ ポポ FUNC MAIN 本来 本 ボボ ボネ ボボ ネネ ネネ ポキ 


even 
cur. prn: move. | 12(sp),a9・… 文 字 列 の ポイ ンタ アド レス 

move. | 22(sp),d1・・ カ カー ソル xx 位置 

move. | 32(sp),d2・・ カ ー ソ ルッ 位置 

move. | #-1,d0 
count addq. | #1,d0 

tst.b (a8) + 

bne count 

move.] dü,ret param*6 
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IRMAN Si A TA 外部 A 義 関 炒 RU ۴۹ نی‎ PU PU Pd FA PRO ۶۷ ایر‎ PA نیز‎ PAO یا‎ PU ۴۹ یا‎ PU PO PU PU PO PU FU PRO PU PRU P PU RO ۴۹ ای‎ Ri ۴۹ ایز ۴۹ ای ۴۹ کے ۴۹ ایا‎ UL ایز ۴۹ ای ۴۹ ای ۴۹ ا ۴۹ ای‎ FR ۶۹ Ru ۴۹ ای‎ PA ای ۴۹ ای( ۴۹ بی‎ PA ای‎ PA ایز ۴۹ یز‎ ۴۹ RM ۴۹ MR ای( ۴۹ یا ۴۹ ای‎ TOUH 


move. | 12(sp), ap 
moveq #$23, d0 
trap #15 
moveq #$21, d0 
move. | a9,a1 
trap #15 
elt. 1 ۹09 
lea. | ret_param(pc),a9 
lea. | error_comment(pc),al 
return rts 
.even 
ret param dc.w 0 
ac. H 
ds. | 1 
error_comment dc. b "Terror", ð 
end 


第 4 一 16 図 cur porn の ソー スリ スト 


この 外部 定義 関数 を メーBASIC で 実際 に 使用 し た 例 が , 第 4 一 17 図 で す 。 ご 覧 の よ う に , str 型 
に 宣言 され た 変数 8 に は "メーBASIC" の 7 文字 を 代入 し て あり ます 。 カ ー ン ソル 位置 の 指定 用 に 宣 
言 る され た int 型 の 変数 X, y に は , それ ぞ れ width 64 の 画面 で ほぼ 中 央 に 位置 する 31 と 15 を 代入 
し て いま す 。 戻り 値 と し て 返っ て 〈 る 文字 数 は z べ 代 入る きれ ま す 。 


18 str a="X-BASIC" 
20 int x=31,y=15,z 


30 z-cur prn(a,x,y) 


40 locate 1 
50 print "LENGTH-2";z 
68 end 





第 4 一 17 図 cur pen の サン プル プロ グラ ム 


実行 結果 は 画面 中 央 に ”X-BASIC” ょ と 表示 きれ , 画面 左上 に は LENGTH=7 と 表示 る れ て いる 
と 思 に ます 。 
eC, 次 に 少し 変わ っ た 実験 を し て み ま す 。 今 作っ だ 外部 定義 関数 に , 文字 列 変数 で は な い 数 
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PUO PO RH PR d Pd ای‎ P P RM Rd POM Pd ROM Pd PO RO نی‎ ۷ Rd RO P Ru Rd P Ru RuRMRuRuRuRuRuRuRuRuRununununununununununununun -4 ンス テム コー ルル と IOCS コー ノレ unum 


値 型 の 変数 を 引数 と し て 実行 きせ て み ま す 。 
10 /*str az"X-BASIC" 
20 int x=31,y=15,z,a=300 
30 zzcur prn(a,x,y) 
40 locate 0,0,1 
BB print LENSGTHS";2 





60 end 

run 

引数 の 型 が 違い ます …….30 行 
0k 





第 4 一 18 図 まち が っ た 使用 法 


この 様 に , 引数 は 外部 関数 の ヘッ ダ 部 分 で 決め られ だ た も の 以外 で は , エラ ー に な っ て し まい ま 
す 。 し か し , ステ ー ト メン ト の print 文 は , 文字 列 や 数 値 な どど ちら も 使用 する こと が 出来 ます 。 
こう し て 考え て みれ ば , print 文 が 関数 で な く ス テー トメ ント で あっ た 訳 が 分 か り ま す 。 


(GE) 実際 に は 関数 に 出来 な い の で は な く て , 使い 易 き や , イン ター プリ タ 制 作 の 時 に 作り 易かっ た 5 
な ど に より 選択 され だ の か も 知れ ませ ん 。 実際 に , C 言 語 で は BASIC で の print 文 に 相当 す 
る printf と いう 関数 が 存在 し て いま す 。 


ワン ポイ ント テク ニッ ク M Nb T 


X-BASIC で は , 皆さん が 普段 使用 し て いる 算術 演算 (エー※ー) の 他 に , 色々 な 算術 演算 子 が あり 
"E 











ed 










p| š 3 AtB C = D 


A BL DEE CNEL, 一 般 的 な 数 学 の 法則 に 準じ て いじ ま す 。 カ ッ ュ を 使用 し て , 演算 の 順序 を 変え る こ 
と も 出来 ま کی‎ 
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(RNB as 4 T 外部 定義 関 ky Pd Pd Pd PA ایا ۹ ایا‎ Pd Pd PU PO ۴۹ ایا‎ Pd PU Pd PE POPE PAO ایز‎ PU POP PU PU P PU PURO A A ایز‎ A ا‎ PU P PO PURO PU ۴۹ ای ۳۹ ای ۹ ۹ ایز ۴۹ ای 8 ایز ۹۹ ای‎ PULO MMR MAMMA RIMS MA ERA ا ۴۹ ای‎ ١ بیز‎ ۴ 





外部 定義 関数 に つい て 色々 と 説明 し て きま し た だ た が, 外部 定義 関数 に と っ て ヘッ ダ の 重要 性 が 理 
解 出来 た こと と 思い ます 。 今 まで は , 関数 一 つ に 対し て この ヘッ ダ が 一 つ ず つ 付 いて いま し た 。 し 
DL, 前 述 の よう に 「 外 部 定義 関数 は X-BASIC 付 属 の 外部 関数 と 基本 的 に 同じ 構造 を し て い 
る 」 と し て あり まし だ が , 各 外 部 関数 は , 関数 群 し し て *※**. FNC の ファ イル の 中 に 2 個 か ら 6 
多い も の て 20 個 近く も の 関数 を 持っ て いま す (隠れ 関数 も 入れ れ ば も っ と 多く な り ま す )。 

結論 か ら 言 2 うと, ユー ザー が 定義 する 外部 関数 で も 複数 の 関数 を 結合 する こと が 出来 ます 。 1 
ファ イル に 関数 を 複合 化す る に は , ヘッ ダ に 秘密 が ある の で す 。 外 部 定義 関数 を 1 ファ イル に 複 
合 化 する ヘッ ダ は 第 4 一 19 図 の 様 に な り ま す 。 


kkkkkkkkkkkkkkk ار 7ر‎ ay. Y= 7 ycekokokekokokekeeokokokoboekex 


adr init dc. | return 

adr_run de, i return 

adr_end dc. 1 return 

adr system dc. | return 

adr break del return 

adr_input dc. | return 

adr_reservel dc. | return 

adr_reserve2 dc. | return 

adr token dc. | token table ・・・・・・・・ ト - ク ッ テ -7~ ル の 位置 
adr_parameter dc. | param adr table ハラ メー タテ テー フル の 位置 
adr_exec dc. ا‎ exec table see 実行 7 トル 2 テ -7~ ル の یا‎ E 
reserve qe. 1 0,0,0,0,0 


本 ホ ポポ ポポ ペペ ポポ ポポ ネネ ポポ トー グン ・ テ ー ブ JUppokekokokeodokokokokokokeookokootookeoteokokokek 


token_table dc.b "funcl1",8 ! 
dc.b "func2",8 Se Ka? 
| | | トー クン テー ブル 
dc.b ”funcN”, 0,0 


228 








ARM ا ۷ل‎ PU POP Pd ای‎ P Pd DND ND ۹ Pd Rd Pad ۷ ND ND BD ND ND PP Pd EN Pd نی‎ PU Rd Pad Pd Pd ۷ Rd Pd P PRO PO Pd POR Pd P ای‎ ENER) 4-5 外部 定義 関数 の 書式 ( Z の ) 3 ) HAMA 


kkkkkkkkkkkkkkk A 23-37-77 یو ید بر ید عو وو عو دع عو و‎ KKK 


, even 
param adr table dc. | param, table 1 egy 
dce. 1 param table 2 === Lë l 
| | [4 bs) 
8 param_table_N ーー و‎ i パラ メー タテ ー ブ ル 
param_table_1 dc.m … | x 第 1 関数 用 …-- ; 
param_table_2 dew — | 第 2 関数 用 ہے‎ Tu 
: | ! | パラ メー タタ ID テーブル 
param table N dete As j 第 N 関 数 用 ہے‎ i 


kkkkkkkkkkkkkkk y" 5197 “VR 3-77 kkkkkkkkkkkkkk**** 


.even 
exec, table dc. func] — 
dc. l func2 
Se [3] 
de^ funcN ーー オート - 実行 アド レス テー ブル 


بیو یو پر پر یو یز ¥ kkkkkkkkkkkkkkk func main %% Kk kk‏ 


.even 

Pul 5o usen SEL F dx M tc 
関数 1 の マシ ン 語 部 分 

SC EE E d. c ana ER 
関数 2 の マシ ン 語 部 分 

QUT Pagos E PME UNI. ce: a TERRI TR کا‎ 
関数 N の マシ ン 語 部 分 

return rts 


第 4 一 19 図 複数 の 関数 を 一 つの ヘッ ダ て 定義 する 


イン プ ォ メー ジョ ン テ ー ブ ル に あげ られ て いる 三 つ の テー プル (トー クン テー ブル. パラメータ 
ーー ズバ 2 ا وت بے‎ AEn OV IS] の DMR ei 
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ایا ایا ا ایا ایا ایا PR PR‏ ایا ایا ایا لیا Pd Pd Pd PRO RO Pd PO Pd PP‏ ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا ایا RO‏ ایا ایا Ru‏ ایا ایا لیا ایا ایا ایا ایا ای ای ای ۹ ایر ا 第 4 CH 外部 AE 義 関 数‏ ۴۷ 1۴۷ 


[1] トー クン テー ブル 

トー クン テー ブル に は , X-BASIC 側 で この 外部 関数 で 使用 きれ る 関数 名 を 定義 し て いま す 。 関 
数 名 は ご 覧 の よう に 複数 個 を 一 度 に 設定 する こと が 出来 ます が , 関数 名 と 関数 名 の 間 に は , 0 (+ 
パレ ー タ ) を 置か な けれ ば な り ま せん 。 ま だ, トー クン テー ブル 終了 を 示す 0 を 最後 の 関数 名 の 
後に も 置き ます か ら , 最後 の 関数 名 の 後に は "0 ", "0 "と 二 つ の セパ レー タ が 入り ます 。 こ の 関 
数 名 の 並び は , 後に 出 て くる パラ メー タテ ー ブ ル や , 実行 アド レス テー ブル の 並び と 同 順に し て 
が が が MM ば な サ り ま せん 。 

【 2 】 パラ メー タテ ー プ ブル 

2% ラ メー タテ ー ブ ル に は , 【 4 】 の パラ メー タ ID テー ブル の 位置 を 示す ラベ ル を , トー クン テ 
ー ブ ル で 並べ た 関数 名 の 順 で 設定 し ます 。 この パラ メー タ ID テー ブル に は , 関数 の 引数 と 戻り 値 
の 型 や 数 を 示す ID の 並び を 設定 し ます 。 

【 3 】 実 行 ア ドレ ステ ー ブ ル 

実行 アド と テー グル 避 は 。 トー クン テー ブ 関数 名 を 思い た 順 T5 マジ シン 圭 デ ログ ラム 本 
体 の 始ま る 位置 を ラベ ル 名 で 置き ます 。 

今 の ヘッ ダ を 使っ て 今 ま で に 作っ て きた 外部 定義 関数 を 一 つ に まとめ て み ま す 。 ま ず , ^ic 
に 作っ て きた 外部 関数 の マシ ン 語 プロ グラ ム 本 体 だ け を 第 4 一 20 図 一 第 4 一 22 図 の よう に 抜き 出 
し まず 


. even 


oddeven: move. | 12(sp),a9 
move. | #-1,d0 
count addq. 1 #1,d0 
tst.b (a9)+ 
bne count 
and. | #1,d0 
move. | dÜ,ret param*6 
eir. d 
lea. | ret param(pc),a0 
lea. | error_comment(pc),al 
return rts | 
.even 
ret param dc.w 
Bed 
ds. | 1 
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PPrnvnunvnvnunvnunvnnvnunvnunvmwnumwnumununvnunvmnvmgnMmymunynvnvnunVmuvnumumumunununun 4-5 外部 定義 関数 の 書式 ( その 3 ) wm 


error comment dc.b "error",8 


end 








第 4 一 20 図 odqdeven の マシ ン 語 本 体 








p——M—MÀ 

















.even 
sum: move.] 12(sp),a9 
move. | 22(sp),d2 
lea. | 0) 0 
SES? dp 
nextadd move. | (a8) *, dl 
add. ] d1, d0 
subq. | #1, d2 
cmp. ] #0, d2 
bne nextadd 
move. | dð, ret_param+6 
cipo dð 
lea. | ret_param(pc),að 
lea. | error_comment(pc),al 
return rts 
. even 
ret_param dc.w H 
de, 1 H 
ds. | 1 
error comment dc.b "error", 
end 


第 4 - 2120 sum の マシ ン 語 本 体 
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IRMAN 第 4 T 外部 y 3p 数 Fd PU Pd Pd Rd Pd PA ایا‎ Pd PA PU POR POR RUP RU RU RR RM RU PA کیا ۴۹ لی‎ PU ۴( ار‎ FA ای‎ RUE RU RUOLO ۴۹ ایا ۴۹ ای‎ PA ایا ۴۹ ایا ۴۹ ایا‎ PA ایز ۴۹ ایز ۴۹ کیا‎ PA ای‎ ۹ PRU POPULO RUE RU PA فیا ۹ ای(‎ PUER RR 7 ای‎ ۹ RE RUE REP 


.even 

cur prn: move. | 
move. | 
move. | 
move. | 

count addq. | 
tst.b 
bne 


move. | 


move. I 


moveq 


trap 


moveq 
move. I 


trap 


ETF 
lea. l 
lea. | 


return rts 
. even 
ret_param dc. w 
dt. 1 
ds. | 


error_comment dc. b 


end 


第 4 一 22 図 cur prn の マシ ン 語 本 体 
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1208 
22(sp),d1 
32(sp) , d2 
#-1,d0 

6 09 
(a0) + 
count 


dÜ,ret param*6 


12(sp),a9 


#$23, dð 
#15 


#$21, d8 
aM, al 
#15 


d 


ret param(pc),a0 


error comment(pc),al 


"error ,6 











1۴ لیا ۹ لیا ۹ اط‎ RR ۹ کا ۹ا‎ PROP ۹ ایز‎ PU PU ۴۷ ای‎ PU ١ ایز ۹ زی‎ POR ۴۹ ا‎ ۴۷ PO ۹٣ ای‎ ۴١ نی‎ PU Pd DUHR PO POP PP PURO ۴[ زی [۴ ار‎ Pd ۴۷ ای ۹ ای‎ PO PO PU ۹ ای ۴۷ ای ای ۷ ا(۹ ا ۹ ایز‎ ۴١ ای ۴۷ لی‎ 4-5 外部 定義 関数 の 書式 ( z の ) 3 ) یں‎ Li 


この ニニ つの 外部 関数 を 合体 きせ る わけ で す が , この ソー スリ スト を よく 眺め て みる と 。 同じ 名 
前 の ラベ ル が あり ます 。 count, return, error comment, ret param (3, 0g 5 ized E 
単独 て 作成 し て き て いる た め に 同一 関数 内 で あれ ば 重複 し な い 限 り ど ん な ラベ ル で も 使え まし た 。 
LL, 一 了 芋 こ れ ら 6 の プロ グラ ム を 合体 きせ る と な る と 重複 し て 定義 きれ て いる ラベ ル は , アセ 
ンプ ブル 時 に エラ ー と な っ て し まい ます 。 複 合 化 し た 外部 定義 関数 を 作る 時 に は , ここ が 一 番 注 意 
し な けれ ば な ら な い 所 な の で す 。 

ST, この 重複 し た ラベ ル の 中 に イン フォ メー ショ ン テ ー ブ ル の 中 で 設定 きれ て いる ラベ ル が 
の あり ます 。returmn と いし う ラ ベル が そう で す が , これ は , ヘッ ダー つ に 対し て 一 つ し か 設定 する š 
と が 出来 な い の で , マシ ン 語 ブログ ラム 本 体 の 一 番 後 ろ の に 一 つ だ け 置 いて , どの マシ ン 語 プログ 
フ ム も 終了 し た 後 は ここ に プラ ンチ し て くる よう に し ます 。 error comment や ret param もど 
の マシ ン 語 ブロ グラ ム か ら で も 共通 に 使 を を う で す 。 後 は , 重複 し て いる ラベ ル を 別 な ラベ ル 名 
に し て や れ ば いい わけ で す 。 これら の 諸 注意 に 基づい て 一 つ に まとめ , 先程 の 要領 で ヘッ ダ を 付 
け だ も の が 第 4 -23 図 で す 。 





kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk*** 


| * external function program * 
P 4 NAMED "GOTTANI" by 宮原 哲也 * 
* build in oddeven & sum & cur_prn function * 


KHKHEKKEEKKHEKXKHEKKKE KK KKK KK KK KK kK kk KK Sk E Fk kk sk kK Kk f kk Fk KK 


kkk kkk kkk kk kkk イン フォ メー ツ ョ ソン ・ テ ー ブ 7 )yxokkekoekokookolelokelokelelolejokoekek 


adr init des, 1 return 

adr run de return 

adr end qe. return 

adr system dez] return 
adr_break dec, | return 
adr_input de return 

adr reservel del return 
adr_reserve2 desi return 
adr_token 96 token_table 
adr parameter de. T param adr table 
adr exec de., 1 exec_table 
reserve dc. 1 0,0,0,0, ð 
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{AMR us 4 3A 外部 Ge 義 関 Tx PUO RR RU RUN Rd Rd Pd Rd Pd Rd Ré Püd Rd Rüd ۹ یز ۷ لی‎ PU RR UR RRR UR ۴۹ای ۴۹ای ۹ ای ۹۷ ای‎ RO Pd Pd Pd Pd Pd Pd PO PU PU PU ۴ ۷ اط‎ PU Ru Ru DDR RN Ru Ru ۷ای نیا‎ RMR 
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£ ************** 


token_table 


(すす を すす すす る を る を を る る する] 


param adr table 


param table 1 
param table. 2 


param table. 3 


ネネ ホネ ネネ ネネ ネネ ネネ ネネ キネ 


exec_table 


kkkkkkkkkkkk*** 


oddeven: 


count 


トー クソ ・ テ ー ブ J) £ £ £ 2 £ £ 2 2 2 2 2 2 2 2 2 2 2 k 2 2 2k 2 2 2 k 2 k K 


dê. b 
dc. b 
dc. b 





A* 343-9. y- 7 ルネ ネネ ポポ ネネ ポポ ポポ ポポ ネネ ポポ ポポ ポポ ポポ ポポ ポポ ネネ 
.even 
dc. | 
dc. | 
de. 1 


یہ 






سیت یریپ یی یىی یی 

ee NAS EE Bee, D 
š SS Q us FF WORDS X 
ZE: b ck RESI E 

rM PD ت‎ E wo PI .لب‎ P^. 
` 

š 


OOO کہ ھک کیک ہیف‎ 2 
- ہیی‎ こい でぶ さて 2 
=. i ` ME MINUM 
- > 2 < ری‎ 
si ET می یں‎ in : 
5 
:m 
< m. n 
UE CET, 





dc. w 






woi らっこ > xe وخ‎ >: < o 
> 

TAN a 

m 

ہی 


dc. w 


` 2 に u 
ご a > a ^ Les d d 
> — CT Or 

oy EA ہی کی ہیں یا ہیں‎ こい TE 

Ca Ka 0) aa EK ^ UD Cy 1343-1 

m». d ` > - ہے‎ bw Zen" < WM ZE 

Gre Da Bä ` ee a w. ^ Dl に De UN 

D > ここ ご ます で まそ ^ く 2 کت و سا‎ 

ro "e FC‏ تی Andre e GEN CR‏ یج یں 





ツッコ ワウ アト VA*3-7^ Mkokokekokololokokokelborokeleelerekololeoekek 
.even 
deal 
dà: 1 


dë. 





FUNC MAIN ***************************** 


, even 


12(sp), a0 
#-1.d9 

#1, d0 

(a0) + 

count 

#1, d0 

dQ, ۲) param*6 


dð 


move. | 
move. | 
addq.! 
tst.b 
bne 

and. l 
move. | 


clr.1 














INN PR PU DND Pd P RR Pd Pd PO Pd DND ND Pd POP Pd Pd ۷ UR P PP Pd کی ا‎ NR PRO PUO Pd PP Pd PONO Pd PO Pd RPM PERPE RR 4-5 外部 Se 義 関 数 の 書式 ( Z の 3 ) unum I 


lea. | ret param(pc),a6 








lea. l error comment(pc),al 
bra return 
FF FF KF KK KK KK ہر ور‎ E OK ید ید ید ید یز یز یز اد اد با اد اد اد اد ار‎ k ید بد ید یر یر ید ید‎ Kk یور یر ہو یھو یھر بد ید‎ kk Kk 
sum: move. | 12(sp),a9 
move. | 22(sp),d2 
lea. | 1006 0,0 
A A d0 
nextadd move. | (a0) *,dl 
add. | dl,d8 
subq. | #1,d2 
cmp. | #0, d2 
bne nextadd 
move. | dÜ,ret param*6 
6 Pr 1 de 
lea. | ret_param(pc),að 
lea. ] error_comment(pc),al 
bra return 


TT TT TTT‏ یز ود ید ید اد اد یو یز ود ید اد اد ید ید A kkk kkk kk ELE‏ ہد 


cur prn: move. | 12(sp),a6 
move. | 22(spP), dl 
move. | 32(sp), d2 

| move, | #-1, d0 

count! addq. | #1, dp 
tst.b (a9)+ 
bne countl 
move.] dÜ,ret param*6 
move.] 12(sp),a0 
moveq #$23, d0 
trap #15 
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1۸ ا‎ ۴۹ ۷ 第 4 = 外部 E 義 関 数 Fd Pd Pd PRO Pd Pd Pd PU Pd Pd ۴۹ ایا‎ 7 P PU P PU POP PRO POOR POOR PU PU PUR ۴۹ ایز ۴۹ بیز ۹ ایز ۴۹ ای‎ PRU PU PULCRA E PUER PULO ۹۹ ای ۴ ایز ۴۹ ارز ۴۹ ای ۴۹ بیز ۴۹ ای ۴۹ ایز ۴۹ ایز ۴ ایز ۴۹ یز ۴۹ نی ۴۹ زی ۴۹ رز ۴۹ زی ۹۷ ای ۴۹ ایز‎ PUERO PUER 


moveq Zë 0 


move. | ab, al 

trap #15 

し Í dð 

lea. | ret_param(pc),að 

lea. | error_comment(pc),al 
return rts 


krtttktttttktktteork areaokokokolokekoekookelooleloleloeokoloekor 


.even 

ret_param dc.w 0 
de. l 0 
de l 1 

error comment dc. b "error ,0 
end 


第 4 一 23 図 三 つ の 関数 を まとめ た "GOTTANIP 


この 外部 定義 関数 を BASIC.CNF に 登録 する 時 に は , 今 まで に 登録 し て あっ た oddeven, sum, 
cru prn を 全て 削除 (BASIC.CNF 上 び ご け で よい ) し て ぢ か が な けれ ば な り ま せん 。 こ れ は , ヘッ ダ 
部 分 で これ まで に 定義 し て きた 関数 名 が , 今 , 定義 し た 関数 名 と 重複 する た めで す 。 

それでは, 今 作 っ た 外部 定義 関数 を 使っ て 動作 の 確認 を し て み ま す 。 こ の 外部 関数 を テス ト す 
る に は , 今 ま で に 紹介 し て きた サン プル プロ グラ ム ( そ れ ぞ れ の 外部 定義 関数 を テス ト し た も の ) 
で も 確認 する こと が 出来 ます が , それ で は 面白 く な い の で ここ で 紹介 する プロ グラ ム 第 4 一 24 図 
CT e Ee :کی‎ Ty 


width 4 


int total,i,x,y,z 
dim int d(3) 





AN str-a,b,c 
58 input "string a:",a 
60 input "string b:",b 


70 input "string c:",c 
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"Terre PR PRU ۷ ایا ۴۹ ای ۹ ایا ۹ ار 9 یز ۹ یا ۹ ایا‎ PU PO Pd ۳۹ ا ا ای ۴۷ ای ۹ ایز ۷ای( ای‎ ۷ MRR Pd PO Pd POP ۴۷ نی ۶۹ ای ۷ ای 7 ای‎ ۷ PU RN PUR ۷ نی 0 ای‎ PURO ۷ نی ۹ یا ۴ای ۹۷ ای‎ RN REN 4-5 外部 定義 関 数 の ) 書式 ( ج‎ の ) 3 ) à `x 


80 cls 

90 if oddeven(a)=0 then x=9:y=9 else x=50:y=30 
180 d(0)=cur_prn(a,x,y) 

118 if oddeven(b)=0 then x=0:y=30 else x=50:y=0 
120 d(1)=cur_prn(b, x,y) 

130 if oddeven(c)=9 then x=28:y=9 else x=28:y=39 
140 d(2)=cur_prn(c, x,y) 

158 total=sum(d,3) 

168 locate 29,15,1:print "total strings lengthz";total 
170 for i=0 to 3990:next 

180 end 





= 4 一 24 図 GOTTANI を 使っ て みよ う 


中 9 ブロ グラ ム は GOTTANI_FNC の 中 に 入っ で いる 関数 を 全て 使用 し た も の で す 。 な か な 
2 ご っ だ 論 " と いう こと で , 関連 の な い 関 数 どう し な の で , 結び 付け る の が 大 変 で す が 。 入力 き 
だ ニ つ の 文字 列 の それ ぞ れ が 奇数 か 偶数 か で 表示 位置 を か を て いま す 。 その 後 , それ ぞ れ の 文 
守 数 を 加え だ も の を 画面 中 央 へ 表示 し ます 。 

これ ま て に いろ いろ と 外部 定義 関数 に 付い て 解説 し て きま し た が ,68000 の マシ ン 語 を 使用 し た 
5 の な の て , 分 か ら な い 方 も いる と 思い ます 。 し か し , ここ で 紹介 し た 68000 の マシ ン 語 は 。 BFE 
類 し か 使用 し て いま せん 。 一 つ ず つ 確 認 し な が 6 覚え て いく こと で マシ ン 語 プロ グラ ム に 開眼 す 
ら - こ と も あり ます 。 他人 の プロ グラ ム を 読む (解析 する ) こと か ら 第 一 歩 が 始ま り ま す 。 











ワン ポイ ント テク ニッ ク 76800005 L FEE * APJ 
X68 ユー ザー な ら 知 っ て いる 方 も 多い と 思わ れ ま す が , 有名 な 隠し 機能 で す 。 ま だ 知ら な い 人 は 是非 
覚え を て お きま し ょ う 。 
e OPT.1 t£ OPT. 2 を 同時 に 押す と 10 進 ・16 進 電卓 が 使え る 
e OPT.2 を 押し な が ら 電 源 ON で RS232C か ら デ バッ ガ が 使え る 
€ BASIC で は , LIST は し . RUN BR. な ど し と 省 略 形 が 使え る 
FAND bA 3 個 の キー を 押し な が ら 背 面 電源 ON で テス トモ ー ド 
e (OSD) SWITCH  ?2 品 で 拡張 スイ ッ チ 使用 方 法 が 表示 され る 
e RAM ディ スク 定義 で #GM128 な 5 GRAM と メモ リ 両方 使え る 
e BASIC で て STR A$ の よう に すれ ば $ 付 き の 名 前 も 利用 で きる 
e DIR は も ちろ ん REN,DEL,TYPE で も ワイ ルド カー ド OK 
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ワン ポイ ント テク ニッ ク マニ ュ ア ル に 載っ て いな に い コ マン ド & 標 準 関 数 


マニ ュ ア ル に 載っ て いな い コ マン ド 


【KILL】 


EM o£ 


[NAME] 






name "33774 v4", "IHZ27z 4v" 
ファ イル 名 の 変更 を 行い ます 。 


ディ レク トリ を 変更 し ます 。 


ドラ イズ で を 人 次 見 し ます ず 。 








search "※※※※ ネ ポリ (* £ p kok IR. 探し だ い 文 字 列 
探し た い 文 字 を 含ん だ プロ グラ ム 行 を 表示 し ます 。 











] 
| [search "ネネ ネネ ネネ” (キネ ネネ ネ は , 探し たい 文字 列 ) 


探し じたい 文字 を 含ん ど プ ログ ラム 行 も プリ ンタ に 出力 し ます 。 











マニ ュ ア ル に 載っ て いな い 標 準 関数 
【FDELETE】 











f —fdelete (fn) 







fn THF 





定 き れ だ ファ イル を 削除 し ます 。 
f= ニ 0 の 時 削除 で きた 場合 
f ニ ー1 の 時 エラ ー が 発生 し た 場合 






str old, new 
old ……… 変 更 し た い フ ァイル 名 
新しく 付け る ファ イル 名 


f= ニ 0 の 時 削除 で きた 場合 
f ニ = ニー1 の 時 エラ ー が 発生 し た 場合 
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mm Zi 5 FÊ X-BASIC で 役立つ 外部 定義 関数 ・ 事 例 E immu می‎ RR PM ARP RPM RM RIP ار ای ای ۷ لا ۴ا یی( ای ۷ای۷‎ RM RUP RR RP ۷ ای‎ RP RR 





o-O 事例 集 の 書 ェ 












P 4 章 て 外部 定義 関数 を 実習 し ま ここ て は 実際 に ユー ザー が X-BASIC で 使用 し て 便利 
な 外部 定義 関数 を 紹介 し ます 。 又 68000 の ハー ドウ エア の 深い と ころ へ 入り 込む も の も あり ます か 
b, ツー スプ ブロ グラ ム の 打ち 込み に は 十分 注意 し て くだ さい 。 ま た , 出来 上 が っ た 外部 定義 関数 
は , basic.cnf に 登録 し な けれ ば な り ま せん 。 
を それでは, ここ で は 外部 定義 関数 を 紹介 する に あたっ て の 書式 に つい て 説明 し ます 。 
書式 1 …… 関数 名 (ファ イル 名 と 兼用 ) 
章 の 副題 の 後に 付い て いる も の が 関数 名 です 。 こ れ は , アル ファ ベッ ト の 大 
文字 て 書い て あり ます が , 定義 する 時 は 大 文字 , 小文字 どちら で も 使用 出来 
ます 。 ま た だ た, ソー スプ ログ ラム を 打ち 込む 時 に , ED.X を 起動 する と 思い ます 
が , ED.X の 起動 時 に も この 関数 名 を 使用 し て 下さ る い 。 必ずしも , この 関数 名 
で ファ イル 登録 し な く て も よい の で す が , basic.cnf を の ぞい た 時 どん な 関数 
が 登録 され て いる か が 一 目 で 分 か が り ま す の で , これ か ら も , 自分 で 作っ た 関 
数 も ファ イル 名 と 同じ に し て お く こ と を ゎぉ 薦め し ます 。 
書式 2 …… 外部 定義 関数 の 仕様 書 (第 4 章 参 照 ) 
第 4 草 て 紹介 し た 外部 定義 関数 作成 時 に 役立つ 仕様 書 を 少し 改造 し た も の て , 
関数 の 内 容 紹 介し ます 。 内容 紹 介 も 第 3 章 の 記述 の 方 法 に 統一 きれ て いま 
a 
N ソー スプ ブロ グラ ム (ED.X で その まま 入力 し て くだ さい 。) | 
ソー スプ ログラム は , ED.X で その まま 入力 し て いけ ば 打ち 間違え きえ な けれ 
ば , 動作 する と 思い ます 。 打ち込ん だ 後 は 。 も ちろ ん AS.X に より アセ ャ ン ブ ル 
L, LK.X で リン ク し た 後 は , 関数 名 の * ネ ** ネ . 双 を *※ ネ ネネ .FNC に し て 下さ Ar 
書式 4 …… 使用 例 と 解説 (X-BASIC で の 使用 例 ) 
ST, せっ が かく 出来 上 が っ た 外部 定義 関数 も , 使わ れ て 初め て その 役目 を 果 
だ し ます 。 こ こ で は , 簡単 な X-BASIC に よる 使用 例 を 紹介 し ます 。 を の プロ 
グラ ム を 実行 し た 結果 が 画面 上 で 表示 る れる も の に つい て は 極力 X-BASIC リ 
スト 後に run (実行 ) し て その 結果 を 載せ て あり ます 。 視覚 的 に 見 せる こと が 
出来 な が っ だ も の に つい て も 結果 を 克明 に 書き ます の で , デバ ッ グ の 資料 に 
b 0 Noua 
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PM RAM PUR PM PM ۷ DND DND BD Pd P M Pd DND BD Pad PO PU Pd P RUP ROM PR PR P P Pd PRIM Pd RO Pd PRO PROP PRO RR PRI 5 ES? 0 事例 集 の ) == x Rg 所‏ کا ۷ نا نا ط۹ 


この 草 で 紹介 する 外部 定義 関数 は 第 5 一 1 図 に あげ る も の で す 。 出来 る だ け 簡 単 な も の か ら 
順に 載せ て いま す 。 理解 の 度合 い に 併 せ て , 関数 作成 に 役立て て 下 き い 。 




















SENGES. 
し 関数 名 ] LS RE KEIER 

leegen he CS 00 EE 1‏ 
2 مض یی می ھا کہ کا کی وہ تک e‏ موی را BU‏ 

e EE E E .و وک رج نو‎ . 9-9 9 808+106 3 
اون ہے ہت اڈ وہ‎ eege reae 使用 マウ ス の 選択 関数 AT IT E Egeter 1 
OXLINE ..-:.... : ec OE Aq IIE ye eene 4 
EK TLINE اکا‎ : Se 複合 関数 …… ben ORT TR P BRE BERE eese 5 
FCES ai i RR A e PII LETT 

EE XOR サ ー ク ル ( グ ラフ ィ ッ ク )‏ رک کہ 
ント 検索 機能 付 ZRILESBHE >766>‏ 
@POP UP ee EE EE os‏ 








第 5 一 1 紹介 する 外部 定義 関数 の 難易 度 





関係 演算 子 


関係 演算 子 は , i f 文 で の 判定 や while until 寺 て の 条件 式 で よく 〈 使わ れ ま T. X-BASIC مو‎ 
次 の よう な 関係 演算 子 の 使用 が 許 き れ て いま す 。 





















等 し く な い 













小さき い 

















WRD EL INIZ- 1, 正しく な いと 0 となり ます 。 こ れ ら の 結果 は , 関係 演算 子 を 含め た 式 全 
体 の 値 と し て も 使用 出来 ます 。 
例 A= (X>Y) カッ コ 内 が 正しけれ ば A=ー 1, 正しく な けれ ば A ニ 0 と な り ま す 。 
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第 5 章 X-BASIC て 役立つ 外部 定義 関数 ・ 事 例 集 — mununumumumumumumu numum mammam mi nu RR RM ARR PPP PPM RM RM MR RR RPM PRI‏ ہمہ 





* k * * k £ X k k Kk Kk k Xk k k k k k k k k k 2 k k k k k k k k k k K k k k Kk k Kk k k k K R K R KOR k ok K R KOR 8 R K 


| * k 
| に BASIC EXTERNAL FUNCTION PROGRAM LIBRARY * 
| t * 
* 刊 マ イコ ン wm + 
* * 
| * A 2 年 9 月 30 日 制作 * 
4 * 
* ROGRAMED & Typed by Kd = * 
* * 
* で る CE に の CC) PV él. * 
* * 


eoe xk R E E K E k k k k k k k k k k k k k k k k k k kkk k kk kkk ok Kk o ok kkk kkk k xk xk‏ بد بر رر بد بد بد دہ 


.tvctr] equ $080C 
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Eg uu M 








mvnvrvrunvnvnvnvnvnunvnvnvrunvnvrunvnvnvnvnvnvnvnvnvnvnunvmvnunvmvmvnvnvnvaunvnvwgn 5—] テレ ビ コ ン トロ ー ル 関数 「TVCTRL」 سس‎ [ 
int_val equ $0002 
int_ret equ $8001 x 
adr init dc. 1 return 
adr run de? return 
adr end de. 1 return I 
adr_system deci return | 
adr break de. 1 return | 
adr input de, ] return 
adr reservel de. return 
adr reserve2 dezi return 
adr_token de. 1 token table 
adr parameter dec. | param adr table 
adr exec dé. exec table 
reserve de. | 0, 8, 8, 8,.0 





token, table dc.b こま また وا‎ 8 
.even 
param adr table dc.! param table 
param table dc.w int.val, int. ret | 
.even Í 
exec_table ded te tr 
.even 
tvctr]: move. | 12(sp),d1 


PETER # tvctrl,dO 
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ا ان نی از POR RPM‏ لین ای لی انی ا لی ای ا یا لی لی ا ا یا mu Rd PR RP‏ ۱ار یا ۱نی ۴ی ۴ یر یی می مر ۴٣۴۳ء X-B ASIC C f£. つ 外 部 定義 関数 ・ 事例 集‏ نت 5 تج mm‏ 


Eran # 15 


40 


ret_param(pc),aÜ0 


msg_error(pc),al 


relurn 


ret_param 


msg_error 





この 関数 に 使用 し た IOCS ユ ー ル は , و 06010066 تک 3700007-77 ۲ 0ل‎ NMR, レジ スタ d1 に 
ロン グ ワ ー ド の デー タ を 下記 の よう な 指定 で セッ ト し , IOCS ユ ー ル 番号 を d0 に モッ ト し て trap 


せ 15 を 実行 する と 指定 し た 作業 を 実行 する も の で す 。 

IOCS ユ ー ル 番号 : $0C 

IOCSS سو‎ 8 

指定 レジ スタ : d1.1 $01/$02/$503 ボリューム を 上 げ る / 下 げ る / 標 準 に する 
$04 チャ ン ネ ルコ ー ル 
$05 テレ ビ 画 面 
$06 音声 ミュ ー ト 
$07/$0D 電源 ON/OFF 
$08 T> at EE E sx 
$09 テレ ビ / 外 部 。 コン ピュ ー タ ノー マル / オ ー バ パー 
$0A EE E P ee T. 
$0B/$0C チャ ン ネ ル ア ッ プ / ダ ウン 
$0E 電源 ON/OFF 切 り 替 ぇ 
$0F qq cet 
810-7 チャ ン ネ ル 1 一 12 
$1C テレ ビビ 画面 ($05) 
$1D コン ピュ ー タ 画面 ($05 十 $08) 
$1E スー ラマ ー 3 (0054 SOP) 
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IRMAMAMAMARMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAWUA O — | > ہے اھ ا‎ s کے کت کا‎ ル 関 数 "TVCTRL jJ mm 


$1F スー フッ パー 2 ($05+&0F+&0A) 
و رو‎ 電源 ON と 上 記 フ ァ ン クシ ョ ン の 実行 
第 5 一 2 図 に 示す プロ グラ ム は , この tvctrl ( ) を 実際 に 使用 し て みた だ た プ ログラム で す 。 こ の 
還 グ ラム て は 。 ブ ログ グル 起業 生 和 の 私 で いあ みい みな テレ ビュ ンド ロー ル を も る いい も の て す 。 
この 関数 を 使え ば , 目覚 し 時 計 が わり に 起き た い 時 間 に デ ィ ス プレ イ に 電源 が 入り , 音量 を 少し 
大 き 目 に し て 起こ し て て くれ だ り , 見 た い 番 組 が 始ま る 時 間 に チ ャ ン ネ ル を 奉 え て くれ だ りな どい 
ろ い ろ と 応用 で きそう で す 。 






/* tvctrl test 







Ent d 
B bestet SH ・*: /* Change TV 
$0 fvctrit6):: /* Sound mute 
ji=1 to 15 


tvetrlii 















for 









/* Volume 







next 








i=@ to 20000 





for 







next 












i-1 to 30 
tvctr1(2) 


next 


for 





/* Volume down 





i=9 to 20000 





for 





next 
yo も pt さ ) /* Volume normal 
tvctrI(&HE) Ze TK er? 
ij= り to 06 



















for 





next 
E SO g $7 る CS 0 チ 
LOU fvctritS&HE) 1 f TV an 

i=9 to ۵ 










for 






next 
230:860 80 5 /* Change X68000 


end 






第 5 一 2 tvctrl を 使用 し た サン プル プロ グラ ム 
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mum 第 5 = X-BASIC で 役 立 つ 外 部 定義 関数 ・ 事例 TE nunununununununuñununununununununununununununununununununununuRununununununuRnum 


第 5 一 2 図 は , tvctrl 関 数 を 使用 し た ディ スプ レイ コント ロー ルプ ログ ラム で す 。 流れ は 。 次 の 

よう Es SÇ kas 393 

1. コン ピュ ー タ 画面 か ら テ レビ 画 面 に 切り 替え る 。 

2. B マミ テート (WF) 

3. 徐々 に ボリ ュー ム を 上 げ る 。 

4. 徐々 に ボリ ュー ム を 下げ る 。 

5, ボリ ュー ム を 標準 に する 。 

6. デイ スプ レイ の 電源 を 切る 。 
1 
8 


コン ピュ ー タ 画面 に メッ セー ジ を 出力 する 。 
ディ スプ レイ の 電源 を 入れ る 。 
9. テレ ビ 画 面 か ら コ ンピュータ 画面 に 切り 替え る 。 
以上 の 処理 の 間 に そ の 状態 を し ば らく 保つ た め に for-next の 空 ル ー プ を 入れ て 時 間 を 稼い で い 
ます 。 


ワン ボク み ま ト テ クニ ッ ク REM 文 を 活用 し よう / 


ブロ グラ な 芝 作ら で いて うち に だ ん だ ん 天 た き な ジ ログ ラム に だ 二 は まし あり ちがう つか が 6 ん で し ま 
うこ と が あり ます 。 徒 来 の BASIC に 比べ X-BASIC は 構造 化 き れ た プロ グラ ム を 記述 する こと が 出 
洲 る まみ に な ひよ まし た だ が, な か な か 慣れ る まで は 苦 労 も 多い と 思い まま 。 そん な 時 に デ ロ グ ラム 中 へ 
REM 文 を 書き 込ん で お 《 と 非常 に わか り 易 く な り ま す 。 

REM 文 は /* と 記述 し ます が , . こ の 後に 書く 文字 等 は ゲロ グラ ム と し て 解 息 き れ な いため に どん 
な 事 を 書い て も か まい ませ ん 。 自 由 に 書き 込ん で 下さ る さい 。 た だ し , あま より プロ グラ ム の 中 に REM 文 が 
多 す ぎる と 逆 に プロ グラ ム 自 身 が 読み に くく な り ま す の で 注意 が 必要 で す 。 で きれ ば , 定義 関数 の 先 
頭 や 難し い 処 理 を し よう 思っ て いる 部 分 等 に 限定 し た 方 が いい で し ょ 5, 

まだ >: SAVE し た デブ ログ ラム は ファ オル ネー ム で し か と どん な ブログ ダム な の か が 分 か り 、 も せん 。 
LOAD し た 後 LIST LER, プロ グラ ム の 先頭 に ぼん な プロ グラ ム で , v», 誰が 作っ た か な ど を 記 
入 し て お く と すでに その プロ グラ ム に つい て わか る の で , プロ グラ ム の 先頭 に REM 文 を 書き 込む こ 
と を 習慣 に し た 方 が いい と 思い ます 。 
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IRMAMAMAMAMAMAMAMAMAMAMAMRMAMARMAMAMRUR UM 5 — 2 ネジ ラオ ドー ゲラ ブフ qw EE AROLD e H 4 設定 関数 "PRI; atm 








5-2 スプ ライ ト ・ 727492. 7 














2-0 














リス ト 2 3 
し を と と と を る と と と と と と を と と を を を すす を な な を な を る を る する すす る する る る る る る る る る る る る る を る を を る る を を を 
$ * 
* BASIC EXTERNAL FUNCTION PROGRAM LIBRARY * 
* * 
* 月 刊 マ イコ ン 別冊 * 
* * 
* 4623 EFSA 制作 * 
* * 
x PROGRAMED & Typed by 宮原 2 Hu * 
* * 
* LRR مھ‎ 3 (V er 1. 19 * 
* * 


と よ よ と と と と と する と と と と と すす と と すす と と と と と と と と と すす と を する る そま する すす を を を そそ を を すそ そる る を 
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pri equ 8 0ھ‎ 
Super equ $ff20 
. text 


k k k k k k k * بد‎ £ k بد‎ £ £ kk باج یا بد با اد بد اد‎ k k k kk K K بد‎ KOK K K KOK K R R K K K R K 


int. val equ $0002 
int ret equ $8001 


* k * * * £ k k £ £ k £ £ k k k xk 3k k kk k k £ k k k K k Kk Kk Kk Kk Rk k RK RR R k k RR R OR K 


adr_init ie. ] return 

adr run de. 1 return 

adr end de. 1 return 

adr system dc. i return 

adr break dc. 1 return 

adr input deo. ] ` Feturn 

adr reservel Bc. 1 return 

adr reserve2 de. i return 

adr token de. token table 
adr parameter déc. param adr table 
adr exec de. i exec table 
reserve de. I 9, 9, 9, H 


K * * * kk k k k k k k k k k kk k k k k kk k Kk kk kk k kk k k k k x k E k k k k k k k K 


token_table de b BEET 285,9 


k £ * k k k k k * k £ k k kk k k 2k Kk k kk k oe £ k £ k k K k k k k k k k k E E k R k R R R.K 


.even 
param adr table dc. l param_table 
param table dc.w int. val 

dc.w int ret 








IRMRURURURURURMRURURURURURURURURURURURUR 5 — 2 * V = A h デポ ラフ シク AFAR ト DEG イオ リ テ イ 設定 関数 !P RI」 D 


いと と と と と と と を て を と を を と と を を すす で を を を を る を る る を なす と を る を る を を を を を を を る を を を を を を を 
, even 


exec table dc. 1 pri 


K k * k بد‎ £ k k £ X k kk k 2 k k k k k 2k Kk k k k k k 2 2 k k k k k k k اد‎ k ok K R R بد‎ OR OK R K 

















. even 

pri: | 
move. | 12(sp),hikisuu 

eind - (sp) | 

dc. w Super | 

addq. | #4, sp I 

move. | d9,sspbuf 

move. | usp, a0 | 

move. | a9,uspbuf Í 

| 

bsr priority | 

move. | uspbuf , a0 | 

move. | að, usp | 

move. | sspbuf,-(sp) | 

dc. w _super | 

addq. 1 #4, sp | 

| 

clr.1 dà | 

TAN ret_param(pc),að | 

lea. | msg_error(pc),al ll 

" 

return rts j 
. even || 
ret_param dc.w ü | 
dei? 0 [ 
dc. | 1 1 


249 "n 





msg error 


sspbuf 


uspbuf 


hikisuu 





dc.b 


dec. l 


dc. | 


dc. | 


Mm Eé 5 3 x< BASIC て 役 立 E 外部 定義 関数 ° 事例 集 IRMAUAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAM AMAMA 


RE ここ M 


K K * k KK k * K * K k بد‎ k k Kk * Kk k k k k k k k k k K k k k 2k K k 2 k k k k E k RK R R R R KR R R 


priority: 





pril 





pri2 


pri3 
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, even 


move. | 


move. | 
move. | 


rts 


hikisuu, d0 
#$1, dp 
DELI 

8 0 
Priz 
83, 0 
pri3 

8 4 d0 
pri4 

0 8 
مم 

86 ,0 
prib 

#-1, d0 
d9,ret_param+b 


#$2400,d1 
cont 
89 1 
cont 
#$2100, d1 


cont 








۸ ا ۹ لا ۹گ‎ ۹ DD ا ۴ای ا۴ لی ۷ ای ۷ یا ۹ ا از ایا‎ DDR WRNENRupuR, 5 — 2 RZ e Eo curs [y Ee ROIS イオ リ テ A 談 設定 関数 「PRI」 15۴۱ 








pri4 move. w #$090A, dl 
bra cont 

pris move. w 8 0 d1 
bra cont 

prib move. w #$1200, d1 

cont move. w _ Br L. dy 
and. w #$cOf f, dð 
Or. w 8, 1 
move.w dis. pri 
Cip. d 
move. | dÜ,ret param*6 
rts 
. end 





ご 0 の ジロ グラ ム で は 1OCS コ ユー ル を 使用 し て いま せん 。 直 接 画 画面 コン トロ ー ル 用 LSI の 内 容 を 
تا حا ےر کک کے‎ q 68000 の パス (アド レス や デー A) に は 数 多く の LSI が つなが っ て いま す 。 
その 中 に 画面 を 制御 する も の が あり ます が を その LSI の 機能 の 一 部 に 。 グラ フィ ッ ク . テキ スト , 
スプ ライ ト の プラ イオ リティ を 決定 する 部 分 が あり ます 。 を < こ を 直接 書き 換え て , それ ぞ れ の 画 
面 の 優先 順位 を 決め て いま す 。 その 一 部 分 と いう の は 次 の 通り で す 。 

A68000 の アド レス バス の E82500H 番 地 の 内 容 


20 24'"2 ダ さる 


EE às Se si 3 ھ0‎ 


Mora do. ub o axe. ro vL E CE NEC DEI cec D WE TER et 


t 
پٹ مھا‎ 


pr C 20000 0 
優先 順位 e 0 0 0 0 0 0 
1 0 1 0 1 0 1 
優先 順位 低 1 0 1 0 1 0 
禁 iE 1 1 1 1 1 1 
スプ ライ ト > Z L グラ フィ ーッ アク x 


ぐれ ぞ で れ の 2 ビット ずつ て 優先 順位 を 設定 し ます が , 同じ 優先 順位 を 設定 する こ と は 出来 ませ 
ん 。 





iñum 第 5 I 
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X BASIC C Tr. x» 外部 É Fe 関 数 hs 事例 E IRR RM RR POPO POR Pd Pd PU Ru Run Ru Ru Ru R Ra Ru Ru nú Ru Ru Ru Ru Ru Ru nu Ru Ru Run: 


/* pri test 

Int Kyt 

یحم ,200 دم int‏ 

float y 

STP- K 

dia str Wd "0 TXIS P y "GIDSIPO TX” ; 

IK‏ ڈوو وی 7 وو ہا وا یا ہر 
CSTOTASER SE $‏ 

dim char spr(255)=( 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
ú, 16 7 16719, ID, 18, T8, 190, E TH 719, 18,10, 10, 10.0, 
0,10,9,9,9,9,9,9,9,9,9,9,9,9, 10, 0, 
0,10,9,8,8,8,8,8,8.8,8,8,8,9, 10, 0, 
E sura: S T EE is pusu ONE P 
ETO O E E, OOTY E 8, ERR, 
tt 8, 1D, B, 
8£,185,9,08, 7, 05,5, 4,4, 5,0, 5, 2,9. 18. €, 
D, Tp 9 t B MED EST LER. 
D, IB, 8,8, 7,6,5,5, 5, 5; 8. 08295. 1B. 9; 
HIBS 8, 7,5, B, B: 5,5, 5, T は 9。 18. B, 
ORO 4958,17. CITA وو‎ Mt ab mall. BE. Bs 
WA LR B, 8,8,/2,8,8,0;,35,8, 8,9; 19,8, 
6,10,9,15,9,9,D,8;9, 09, 9,8, 8.8, I8, B, 
0,10,10,10,10,10,10,10,10.10,10,10,10,10,19,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ) 

Screen Eu p 

sp init ( 

sp disp(1) 

sp.def(l,spr;1) 

tor J= tg 15 
sp colori? hsyCIB, 31,31- 143202 


next 





IAMAMAMAMAMAMAMAMANAMAMAMAMAMAMAMAMANAMA) 5—2 و‎ 時 ト ・ グ ラフ ツテ キス ト の プラ イオ リ テ 7 








990 for وہ کو‎ ys 
340 Lill CI*15,0, j*15*15,511.hsv(96, 31.j*2)) 
350 next 

for c8. bo .15‏ 0ا20 

370 for Zeg. fats 

380 locate J*d.i*2:print"*  " 

390 next 

400 next 

418 locate 45.9:print MESI prit 5 y^ 
420 while 1 

430 for x=-289 to 298 

440 k=inkey$ (0) 

450 TEES TONES pri- seft] 

کا e‏ اھ کک و 450 

470 sp.moveí(l,x4255.y4258. 1.) 
480 next 

490 for x=-299 to 200 

500 k=inkev$(0) 

518 IT S Q Phan pri.set() 

528 y=sqr(r*r-x*x) 

530 sp.move(1,256-x,258-y, |) 
540 next 

550 endwhile 

560 end 

970 func pri set () 

580 p=p+] 

590 if p=7 then pz] 

588 locate 45,8:print Sdip);" 079 
610 pri €p) 

620 endfunc 


DEIZ PRI, 











第 5 一 3 図 pri を 使用 し た サン デル プロ グラ ム 
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mm ê 5 E X-BASIC で 役立つ 外部 定義 関数 ・ 事 例 集 ESE EEE E EE 


この プロ グラ ム は )、 実行 後 し ば らく する と ディ スプ レイ に グラ フィ ッ ク グ 画 面 に よる グラ ディ エ 
ーション が 左 半分 に 表示 きれ , テキ スト 画面 に 全角 文字 の 記号 で 星 が 表 示さ る され , A774 bi 
に は 赤い ブロ ッ ク が 移動 ( 格 円 運動 ) を 始め ます 。 こ の 状態 で 画面 右上 に は , 現在 の スプ ライ ト , 
テキ スト , グラ フィ ッ ク の 優先 順位 が 表示 きれ て いま す 。 こ こ で キー (何で も よい ) を 押す と こ 
の 優先 順位 が 一 つ ず つ 変 わっ て いき ます 。 各 画面 が 手前 , 中 間 , 後ろ に 変化 する こと を 確認 し て 
IPS. 


ワン ポイ ント テク ニッ ク スー パー イン ボー ズ に つい て 


X68000 で は , X1 か ら 6 好評 だ っ た スー パー イン ポー ズ 機 能 を その まま 引き 継い で いま す 。 スー パー イ 
ン ポ ー ズ 機能 し いう の は , テレ ビ 画 面 に コン ピュ ー タ 画面 を 重ね 合わ せ て 表示 出来 る ほ と い うこ と で す 。 
実際 に この 機能 を 使用 する 場合 に は , 若干 の 手続 き を 必要 と し ます 。 こ れ は , テレ ビビ 画面 を 構成 する 
同期 信号 し コン ピュ ー タ 画面 を 表示 する た め の 同 期 信号 が 違う た めで , これ に より スー パー イン ポー 
ズ 出 来る コン ピュ ー タ 画面 6 制約 を 受け ます 。 

スー パー イン ポー ズ す る こと の 出来 る の は , 低 解 像 度 の 面 画 ど だ け な の で , SCREEN 命令 で , 3 番目 
の 引数 は 0 と し な けれ ば な り ま せん 。 ま だ た だ, 表示 サイ ズ も 512X512 以 下 で な けれ ば な り ま せん 。 


で は 。 実際 に スー パー イン ポー ズ 画 面 に し て み ま す 。 次 の 手順 で 実施 し て 下 き い 。 


P (MO SCEREEN B 2. で 0 に) ポ まさ ダン ポレ ンク 6 に モー ボド IKE する 。 
(2) OPT.2 キ ー を 押し な が ら , テン キー の を 押す 。 


以上 で 画面 に は テレ ビ の 画面 と コン ピュ ー タ 画面 の 合成 が 映し 出さ れ て いる は ず で す 。 テ レビ を 見 な 
が ら プ ログ ラム する 人 に は 重宝 な も の で す が , コン ピュ ー タ 画面 は テレ ビ 画 面 よ り はみ出 し て 表示 る 
れ て いる た め 残 念 な が ら 行 番号 や 左端 に ある カー ソル が 見 えま せん 。 ど う や ら 6, プロ グラ ム を 作っ て 
か ら 楽 し む な ほ か は な いよ う で す 。 例 を えば, ビデ オカ メラ で 撮っ た 絵 に 文字 を 挿入 する と か タイ トル 画 
面 を 作る と ヵ 使い 方 は あな た 次 第 で す 。 
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äer‏ ہو 


1 ای ۴ ای ۹ ای ۴۹ ایز ۹ ای ۳۹ ایز ۴ ایا ۴۹ ای ۴۹ ای ۴۹ ای‎ ۶١ ایا ۹ ای ۷ ای ۴۷ ایا ۴۹ ایز( ایز ۴۹ بی‎ ۴١ ایز‎ ۴٣ ایا ۷ار[ ایا ۹ ای ۴۹ ایز ۷ ای‎ ۴۹ BP BP B B BI BP BP BI BP BP LP BP LI LUE 5—3 WU m カー ソル の E FE 関 Et 「MSCSET J سید‎ 














5-3 voan- ソル の 定義 関数 





仕様 書 3 











| 関数 名 : mscset (pn, px, py, na) | 
| 引数 の 数 と 型 : int pn, px, py | 
| DI ーママ スカ ター ソル No. 
| PX…… EE 
| パタ ー ン の 左 隅 を も マ ウス 座標 に する 場合 は 
| حسم اح وت‎ | 
py…… パ ター ン の 上 隅 か ら マ ウス 座 棟 ま で の 距離 | 
| パタ Q) UC APBERBELG 235119 | 
| E VD BRE DIEU TELES 
| Da マレ スカ ソル の パタ シテ RIAL TL ۱۲ج‎ ORADA] 
(要素 数 32 個 ) x 
ISAI DECIT- R- (0 ]5) | 
ソン パ ター ン 表 示 デ ー タ …・・- (16— 31) | 
| 戻り 値 : ナ シ x 
| AE: int 型 の 配列 で 指定 し た 形 の マウ スカ ー ソ ル を 指定 し た カー ソル 番号 に 定義 し ます 。 x 
T) 設定 出来 る カー ソル は 一 つ だ け で す 。 x 
& EE F 
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mum 525 X-BASICC 役立つ 外部 定義 関数 ・ 事例 集 inanunununununwnununuanunununununununununununwnvnunununununununununununununununum 








| (Ska 

MA AAA FOF OK O O ok f KF KK KO O OK اد اد ید بد اد بد اد ید‎ TTT Fk ید بد‎ e kk KF o ok kK Kk 

| x BASIC EXTERNAL FUNCTION PROGRAM LIBRALY * 
+ * 
* 月 刊 マ イコ ン 3m £ 
* * 
* 昭和 62 年 6 月 22 日 制作 * 
* * 
* PROGRAMED & Typed by 深沢 幸三 4 
* * 
* CROMO SE CURSOR SRT و‎ * 
* * 


kkkkkkkkkkkkkkkkkkkkkkkkěkkķěkkkkkkkkkkkkkkkkkkkkkkkkkkkx**x 





MS 7٦ equ $007a 
int val equ $0002 
int. vp equ $0032 
int ret equ $8002 
adr init de. i return 
adr run do. 1 return 
adr. end dé. return 
| adr system de, 1 return 
| adr break qe, | return 
adr. input dc. I return 
adr reservel de. 1 return 
| adr reserve2 de, 1 return 
| adr token dc. 1 loken table 
adr parameter dc. | param adr. table 
adr exec Hes 1 exec table 
reserve de. 1 8, ۵ 
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一 3 EE 2 カー ソル の 定義 関数 「MSCSET」 —‏ 5 ۲ ای یی ای ا یز ایی تی ای ایا رای PUN RUP P UR UR‏ ار ۷ زی ۷ زی ۷ زی RM RP RR‏ لی لی ا یا ایا بای ۴ ا۴ ۴ ا ۹ 『 


token table dc.b "mscset",0,0,0 
.even 

param adr table de. | param table 

param table dc.w EE var nto val, Tni val 
dc.w [HT VD. Fat Pel 
. even 

exec_table dcl mscset 
.even 

mscset: move. | 12(sp),d8 
tove. 1 22í(sp),dl 
move. | 32(sp),d2 
move. | 42(sp),að 








lea. | 10(að),að 


move.w 0, ۱] 

move.w dl,buffer adri 
move.w d2,buffer adr? 
move. | 4 0 

lea. ] pattern,al 


loop move.]  (a9)+,d5 





move.w d5,(al)* 
Subq. | #1, do 
cap. 80, 0 


bne loop 





lea; | buffer_adrl,al 
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was e 


= ہے‎ n 


ne 
E "e " 














mm کر و جو‎ x BASICT で 役立つ 外部 定義 関数 ・ 事 例 集 imu Ru RPM RM PR یا یا ار ا ار ا یا۴ ا ار یا‎ RM RARO ا ایا ای ا را ایی ار ای‎ P RUP RM PP 


move.w Dn dl 
007 9, #MS _- dp 


trap #15 
cle; d 
lea. | ret_param (pc), að 
lea. | msg error(pc),al 
return rts 
pn dc.w 0 
buffer adri dc.w ü 
buffer_adr2 dc.w 0 
pattern ds. w 16 
ds. w 15 
. even 
ret param dc.w 0 
dc. | 0 
dc. 1 1 
msg error dc. b "Efrsr 0 


この ブロ グラ ム て 使用 し た IOCS ユ ー ル は , 次 の 通り で す 。 
IOCS コ ユー ル 番 号 :$7a 
IOCS 名 : MS PATST 
指定 レジ スタ : d1.w ニ カー ソル の 番号 
a1.1= ニ パタ ー ン の デー タ 格 納 ア ドレ ス 
00 (al) .w ニ パタ ー ン の 左 隅 か が ら マ ウス 座標 まで の 距離 
パタ ー ン の 左 隅 を マウ ス 座 標 に する 場合 は 0 
パタ ー ン の 右 隅 を マウ ス 座 標 に する 場合 は 15 
02 (a1) .w テ パター ン の 上 隅 か ら マ ウス 座標 まで の 距離 
パタ ー ン の 上 隅 を マウ ス 座 標 に する 場合 は 0 
パタ ー ン の 下 隅 あや マ ウス 座標 に する 場合 は 15 
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ARM PP P Pd Pd Pd ۹ لیا‎ Pd Pd POP ۷ MRR GR UR UR ای ۴ ایا‎ POP Pd Pd NR Pd Pd Pd PUR POR ۷ ۴ای‎ SRR ایا ۴۷ا‎ RO نی ا‎ 5 一 3 マウ スカ ー ソ ル の 定義 関数 'MSCSET jJ 


04 (al) .w ニ パタ ー ン の 影 に する デー タ (16 ワ ー ド 以上 ) 
20 (al) .w デ バターン 表 示 デ ー タ (16 ワ ー ド 以上 ) 
この 関数 を 使っ た サン プル プロ グラ ム は , 本 章 の 最後 に ある TEXT DRAW.BAS に あり ます の 
て 参考 に し て 下る い 。 しかし, この ms_cset で 定義 むす る こと が 出来 る パタ ー ン は 一 つ だ け で す 。 こ 
の 関数 を 使用 し て マウ スカ ー ソ ル を 作る の は , 面倒 な 作業 で す 。 頑 張っ て オリ ジ ナ ル の カー ソル 
を 作っ て みて 下さい 。 






ワン ポイ ント テク ニッ ク テン キー で テレ ビ の 操作 を 


パッ コン を 使っ て いる 時 に , 突然 テレ ビ が 見 た く な っ た 時 に , X68000 は あな た の 味方 で す 。 秘 密 の 
キー (な に も 秘密 で は な い ) で す で テ レン 画面 に 早変わり 。OPT.2 二 テン キー で テン レ ピ 画 面 を 操作 出 
来 ま す 。 リ モコ ン に 付い て いる 操作 は すべ て 出来 ます 。 キ ー 操 作 は 次 の 通り で す 。 

《 キ ー 操 作 )〉 










0 
ری وو‎ 
(EVF Y) 


[OPT:2]-- 






FUE メイ パソ ラン 切替 






L du 






2 チャンネル 






jg ww Jv 
4 チャ ン ネ ル 






な か ヤジ ホル 






6 チャンネル 






7 チャンネル 






8 チャ ン ネ ル 






9 チャンネル 






10 チ ャ ン ネ ル 


3 C gë O06. <s ور گا ہچ اوت‎ be 45 


F qae 









BhA س3‎ 
チャ ン ネ ル 表 示 ON/OFF 
スー パー イン ポ ボーズ ON/OFF 
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| mn 第 5 章 X-BASIC て 役立つ 外部 定義 関数 ・ 事例 ` ہہ ×× یہ دہ‎ mu pu نی ان ای۴۷ ابی‎ PM URP ۴ ۴0ن زا‎ Ph RÉP M PM P Ph ای ا ار‎ P P RP RPM 

















×× * £ * * k £ k eoe K k Kk k k با‎ 2k k £ k k 2 2 k k k k 2 k 2k 2k بد‎ k k k k k k k k k k k k Rk K k K Rk k KOR k k R e K K 














* * 

* BASIC EXTERNAL FUNCTION PROGRAM LIBRARY " 

* * 

x 月 刊 マ イコ ン Bm * 

* * 

| + 昭和 6 2 年 7 月 25 日 制作 + 
| * * 
| 4 PROGRAMED & Typed by UR = £ 
| 4 * 
| G EC OR مو کی و و‎ P. o * 
* * 

| ホネ ホネ ネネ ネネ ネネ ホネ ホホ ポポ ネ ネネ 本 林 ボネ ネネ ネネ ネネ ネネ 本 ネネ ネネ ネネ ネネ ネネ ネネ ホネ ネネ ホネ キネ ホネ 本 








| M5. SEL equ $007b 


| int. val equ $0082 
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۸ ۴ ا ان ان۳ نا۴ ا الا نا انا نی ۷ نا ۴یا نی‎ wmm unum 5—4 作用 し た た い マ ウス カー ソル 番号 を 設定 する 関数 「MSCURSOR」 inim 





int ret equ $8000 
adr. init dc. | return 
adr run dé. return 
adr. end de. d return 
adr system de; 1 return 
adr_break dec] return 
adr input dc. | return 
adr reservel de. return | 
adr reserve2 de. I return 
adr token dc. 1 token. table 
| adr parameter dc. | param adr, table 
| adr exec des 1 exec table 
| reserve de: 0,0,8,8,0 
token. table dc.b "mscursor",0,0,0 | 
.even 
| d 
param adr table dc. |! param table E 
d 
| 
param table dc.w int, val, int ret I 
.even 
exec table dec. d mscursor 
.even 
s 
mscursor: move. | 12(sp),d2 


move.w d2,dl 


moveq &MS SEL, d0 
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 —— n ké bag‏ سے سے 





` 





LL a 5 X X-B ASIC« f&ar. つう 外部 Ë ESSE: 数 ^ 事例 集 ARR RU RU ۴ ایا‎ ۹ Pd ۹۷ یز ۹ یز ۹ ایز‎ PO PURO POP PURO RM RM ۹ ای‎ RU ۴ ۹نی‎ Ru ایا ایا ایا ایا ۹ایا‎ ۴۹ ERR ایا ایا ایا‎ ۹ PUE PO MRM 


trap #15 


dø 


ret_param(pc),að 


msg_error(pc),al 


return 


ret_param 


msg error 


LOBpEcBEHSTCOo5ICSa2-viXkodtocd4. 比較 的 に 簡単 な IOCS コ ユー ル で す 。 マ ツウ 
AI INOUE EMES AXDI -=F TAR C Ra U TOC OIS Ea ed ey EL 


Éent ett, 


IOCS ュ ユー ル 番 号 :$7b 
IOCS 名 : MS SEL 
指定 レジ スタ : d1 し ニカ ー ソ ル ん 番号 
この 関数 を 使っ た サン プル プロ グラ ム は , 本 章 の 最後 に ある TEXT_DRAW.BAS に あり ます の 
で 参考 に し て 下さ い 。 
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O — 5 複合 関数 LX LINE Jj "TLINE 」「TCLS」 ^‏ یں نید نے اود اود ایا ایا نی اید ایا ایل لی او ایا ای لی اید ایا ایا اید ادا ادا ایا ایا ایا ادا اناد ایل ایا EES‏ ادا ای اود اداد اید 





E 3 ka 





ALINE は グラ フィ ッ ク 画 面 ,。 XOR モー ド (交点 で 色 の XOR を と る ) で 線 を 引き ます 。 TLINE 
は テキ スト 画面 に 。 OR モー ド (交点 で 色 の or を と る ) で 線 を 引き ます 。 TCLS は テキ スト の ペー 
ジ 単 位 の クリ サリ ア で す 。 

この 関数 は , 一 つの ファ イル に 三 つ の 関数 が 入れ て ある 複合 関数 で す 。 | 
(1) XLINE | 


仕様 書 5 | 














18. FRU b xe ey Sex Y 
20 for i=0 to 9 | 

30 1=rand()/64 

40 12 4 

50 2=rand()/64 

60 y2=rand()/64 P 
70 c-rand()*2 

80 xline(xl,yl, x2, y2,c) | 
90 next | 








Ei d St... 











XLINEK の サン プル プロ グラ ム 


^ AE Fat 
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"T" 29 har o. 















































wun 452: X-BASIC て 役立つ 外部 定義 関数 ・ 事例 集 amamamamamumimammumum4P P P P RM PPP PPP PUPPI PPP 


さ の ブロ グラ ム を 実行 する 前 に 。 ダイ レグ キモ ー ド ト て scneew。 1, 3, 1; 1 を 実 邊 し て 下さ の 。 
xor て の 描画 は 変 点 の 色 が 論理 演算 で xor を と り ま す 。 従っ て 同じ 色 で 同じ 位置 に 線 を 引く と 表示 
る れ て いな い 状 態 に な り ま す 。 こ れ は , グラ フィ ッ ク 画 面 が 1 枚 し か な い 時 に 有効 で , 重なっ た 
図形 か の ら あ る 図形 どけ を 消す よう な 場合 に 指定 され た 図形 と 交点 を 持つ 図形 の 交 点 を 消 る な く て 
済み ます 。 

X-BASIC の 乱数 系 は , 初期 化 る され な いと 同じ 乱数 を 発生 し ます か ら , 二 度 目 に 実行 し た 時 は 一 
回 目 に 書い た 線 を 一 本 ずつ 消し て いき ます 。 そ を そのため, 一 回 目 に 書い た 線 を 消 き な いよ うに , 7 
ログ ラム 中 に は screen 文 が 書い て あり ませ ん 。 


(2) TLINE 


仕様 書 6 











この 関数 を 使っ た サン プル プロ グラ ム は , 本 章 の 最後 に ある TEXT_DRAW.BAS に あり ます の 
で 参考 に し て 下 き い 。 

この tline 関 数 で は , テキ スト 画面 わあ た か も グラ フィ ッ ク 画 面 の よう に 使用 し て いま す 。 こ れ 
lk, X68000 の テキ スト 画面 が フル ビッ トマ ッ プ 方 式 で ある た め に 実質 的 に は , グラ フィ ッ ク 画 面 
の よう な 使い 方 が 出来 る か ら で す 。 こ の テキ スト 画面 は 4 す ペ ー ジ あり , 0, 1 ページ で は 文字 が , 
2, 3 ペー ジ で は マウ ス が 使用 きれ て いま す 。 従っ て マウ ス を 使用 する よう な プロ グラ ム で は , 
2. 3 ペー ジ の 覗 用 ほ は きす は ん 詞 が と いて し ょ 今 。 

ST, テキ スト 画面 を グラ フィ ッ ク 画 面 の よう に 使用 し て 作っ た 絵 を 消す 方 法 で す が , 次 に 紹 
介する tcls 関 数 を 使用 し て 消去 で きま す が , 面白 い 消し 方 で . テキ スト 画面 クリ ア の cls ス テー トメ 
ント が あり ます が , これ を 使っ て tline で 描い た 絵 を 消す こと が 出来 ます 。 グラフィック の よう に 


描い て, cls で 消す 。 こ ん な こと が で きる の も X68000 の 楽し み の 一 つ で す # 


(1) TCHS 


仕様 書 7 
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٢ ایی ا ری لی ۴ی ای( ای یراز ای لن یا لی لی لی ا لی لی ای ۴ نایا نی نا ای‎ RIP ای ری لی‎ RM RIP RM RIP 5—5 複合 関数 93ھ‎ 7 rTLINE 」 "TCLS j “m 





こ の 関数 を 使っ た サナ ンプ ルプ ログ ラム は 。 本 草 の 最 後に ある TEXT DRAW.BAS に あり ます の 
で 参考 に し て 下さ きい 。 

この 関数 は , さきほど 紹介 し た tline に より 指定 し た テキ スト ペー ジ に 線 を 引く こと が 出来 まし 
だ が , この tcls 関 数 は 指定 し た テキ スト ペー ジ だ け を 消去 する こと が 出来 ます 。 

ロー(⑬) の 関数 を 一 つの ヘッ ダ に まとめ た も の が リス ト 5 で す 。 


リス ト 5 


KAKRRKRKKKKKKKKRYKKKKKKKYKKRKKRKKKYKEYKKKRKKXTIKKEKKEKRKKKKKXKXKKEKKKKKKKKK 


* * 
" BASIC EXTERNAL FUNCTION PROGRAM LIBRARY * 
* * 
* 月 刊 マ イコ ン 別冊 * 
* * 
* 昭和 6 2 年 8 月 11 日 制作 x 
* * 
* PROGRAMED & Typed by 宮原 UI D 
* * 
ELKEEN E- e ERLE 
* * 


EEEO AOAO KK ik o FF E k k k k kkk kkk kkk kkk 


tkkkkkkkkkkžkk** [OCS ネー ム یو بویع عو یپ ہپ‎ Kk KE یو بد‎ FF 


.exit equ $f f 00 
_Super equ $f f20 
text 


ok ok KK kk Kk kkk k اد‎ ヒキ スウ ・ モ ト " J fockkoookroooooooboooeoeloooecer 
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m 第 5 x X= BASIC TEI KS 外部 Se 31] 数 ° 事例 KS ۹ یا ای ۱ای ۹ای ۴۷ای ۹ی ۹ ای ۹ زی یر ۷ہی‎ Pd ۷ یا ای‎ PRO PORUM ROM PU PK ای9‎ Pd RO ۴۷ ای ۹ای‎ PU ۹ PRO PORRO BD NRW MPO 


(nt val equ $0002 
int ret equ $8001 


を を を を る を る もそ を を を る る する: イン 7 フォ メ ー リ ョ ソ ・ テ ー ブ 7 p R K R k K k k K k k K K K k k k k F 


adr init dc. return 

adr run dc. | return 

adr end dc. 1 return 

adr system dc. return 

adr break ic. 1 return 

adr input dc. | return 

adr reservel dc. 1 return 

adr reserve2 dc. 1 return 

adr token de. token. table 
adr parameter dc. 1 param adr table 
adr. exec dc: exec table 
reserve de. 0,0,0,0,0 


RSV: 7-7 a E A A K A k k k k k k k k k k k k k k k k k k k k‏ ری رر یی 


token_table dc.b "tline 0 
dc.b "xline",8 
dc. b "tels 9 


A 93-9 3-77 Joekkekekokokelokekolokekolokokolokololokeleokeieer‏ ہد مہ ید یر یر ہد یہی یی 


„even 
param adr. table dc. | param table_l 
dc.] param table 2 
dc. | param table. 3 
param table.1 dc.w int.val,int. val, int. val 
dc.w int. vali, int val, int ret 
param table. 2 dc.w int.val,int. val, int val 
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RII 5 — 5 復 合 関 数 「XLINE」 l'TLINE, 「TCLS」 inum‏ ان ۴غ ا۴ ۷ غ۴ ERR‏ یر RI‏ ی۴ی لی از ای لی لی ای لی یا یا یا یا ا یا نا نا نا 


dc. w iot val int.val, int rèl 


param_table_3 dc. w int val, int ret 





Wad AA AAA y 9215? À レス ・ テ ー ブ دع پر“‎ TTT TT TTT E KK Kk kK KX 





. even 
exec_table dc. | tline 

de. / xline 

dc. tcls 
kkkkkkkkkkkkkkk TEXT LINE し そそ そる を を て キス を する すす す すす を すす そそ そそ を を そそ : 





„even 
tline: 

move. | 12 (sp 1 

move. | 22(sp), Y1 

move. | 32 (Sp): , X2 

move. | 42 (sp). Y2 

move. | 26 COL 

etei - (sp) 

dc.W Super 

addq. | #4, sp 

move. | dú,sspbuf 

move. | usp, aû 

move. | a9,uspbuf 

bsr line. _[| 

move. | uspbuf, a0 

move. | að, usp 

move. l SSpbuf, -(sp) 

dc.w Super 

addq. | #4, en 
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* * * * * * £ oec £ 2 k k 


line i. 


ZEROX 4 


PLUSX 1 
CONTIS? 


ETF 
lea. | 


lea. | 


rts 


dð 
ret_param(pc),að 


msg_error(pc),al 


TEXT LINE ËJ) ید بد بد بعد مدع ع۷‎ K بد ید‎ E K در کر ماد ماد ماد‎ k FOF OF OF OF 


, even 


move. | 
move. | 
move. | 
move. | 
move. | 
move. | 
sub. | 
sub. | 
cmp. | 
bet) 
beq. ! 
move. | 
muls 
bra 
move. l 
bra 
move. | 
move. | 
muls 
move. l 
move. | 
cmp. l 
bet, | 
beq. | 


move. | 


X1, dð 
X2,d1 
Yi,d2 

12, d3 
6 
d2,d7 
d9,d1 
d2,d3 
#8,d1 
PLUSX_1 
ZEROX_1 
8-1, SGNX 
و‎ 
CONTI.I 

&0, SGNX 
CONT1_1 
#1, SGNX 
dl,ABSDLTX 
#2,d1 
d1,ABSDLTX2 
ABSDLTX,d1 
#0, d3 
PLUSY_1 
ZEROY_1 
#-1,SGNY 











ZEROY 1 


PLUST-] 
CONT2. 1 


BIGX 1 


LOUET d 


CONTBIGX _ | 


BIGY 1 


L0OP2 1 


muls 
bra 
move. | 
bra 
move. | 
move. | 
° 
muls 
move. | 
move, | 
cmp. 1 
bgt. | 
move. | 
muls 
CIT 
move. | 


move. | 


add. | 
add. | 
cmp. | 
blt.| 
add. | 
sub. | 
addq. | 
cmp. | 
FETA 


bra 


move. | 
muls 
Etri 


move. | 


5-5 複合 関数 「XLINE」 "TLINE, TeLS inum 


$-1,d3 
CONT2.1 
#0, 1: 
CONT2.1 
81,5GNY 
d3,ÀABSDLTY 
tarda 

d3, ABSDLTY2 
ABSDLTY,d3 
di;d3 
BIGY 1 
ABSDLTX,d4 
8-1,d4 

d5 

dp, SA 

dr, SY 


TEXTPSET 


5GNX, dp 
ABSDLTY2,d4 
80, 4 
CONTBIGX. 1 
SGNY,d7 
ABSDLTX2,d4 
#1,d5 

dl,d5 
LOOP1_i 
CONT. I 


ABSDLTY,d4 
8-1,d4 

d5 

d6,5X 











CONTBIGY_I 





| CONT 1 


* £ * £ £ k k k £ £ £ £ k x 





ER 3 
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move. | 
ber 
add. | 
add. | 
cmp. | 
batia 
add. | 


sub. | 


.addq. f 


cmp. l 


blt.i 


ETS 


inum p 5 Es X-BASIC で 役 立 12 外部 A E: 関 数 * 事例 4 Iñunununununununununununununununununununununununununununununvnunununununvnununuma 


drar 
TEXTPSET 
SONY; d? 
ABSDLTX2,d4 
806, 4 
CONTBIGY. 1 
SGNX,d6 
ABSDLTY2,d4 
81,5 

d3,d5 
LOOPZ d 


TEXT PSE TELERO O K K K KKK KKK K k k k k k k k 


move. | 
move. | 
mulu 
divu 
mulu 
add. | 
move. | 
mulu 
move. | 
sub. | 
move. | 
kee zi 
move. | 
cmp. | 
beq 
cmp. | 


beq 


d6, TEMPX 
d7, TEMPY 
#$89,d7 
6 
826 
d6,d7 
d7,adrsl 
#8, dp 
TEMPX, d7 
d6,d7 
#$8000, d6 
d7,d6 
COL, d7 
80,7 
COLORO 


8 7 
COLORI 








COLORU 


COLORI 


COLOR2 


COLOR3 


cmpl 
beq 


bra 


move. | 
add. | 
move. | 
Or. wW 
move. ] 
move. | 


rts 


move. | 
add, | 
move. | 
Or. w 
move. | 
move. | 


rts 


move. | 
add. | 
move. | 
or. w 
move. | 


move. | 


95 


SZ, di 
COLOR2 
COLORS 


adrsL,d7 


t$E00000,47 


d7,a4 
d6, (a4) 
LEMPY, d 
TEMPX.d6 


adrsl,d7 


8 d7 


d7,a4 
db, (a4) 
TEMPY,d7 
TEMPX,dh 


adrslid4 


8 d7 


d7,a4 
d6, (a4) 
TEMPY,d7 
TEMPX,d6 


adrsl,d7 


#$E60000, d17 


d7,a4 
dp, (a4) 
TERPY dT 
TEMPX,d6 


複合 関数 「XLINE」「TLINE」「TCLS」 
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mm 第 5 章 X-BASIC で 役立つ 外部 定義 関数 ・ 事 例 E ء۱٣‎ ٣٣۷ ای ایا ایی ای ای ار ای ا۷ ای۱۲ ا۱ ای اا۷ ای ا۴۱۷ م۴۷‎ RM رای‎ RM ایی( ایی ا‎ RM RR RR RPM RP 


rts 


ネネ ポポ ポポ オ ネオ ポポ ポポ ネネ ネネ ポキ XOR LINE **3********************* 














.even 
xline: 
move. | 12(sp)$ X1 
move. l 220553 
| move. | 32 (sp), X2 
| move. l 429 2 
( move. | 52(sp),COL 
| Ss d - (sp) 
| dc.w Super 
| addq. 1 84, sp 
| move. | dð, sspbuf 
| move. usp, a0 
| move. | 30, uspbuf 
bsr line 2 
move.] uspbuf, að 
move. | aĝ, usp 
move. | sspbuf,-(sp) 
dc. w _super 
addq. | #4, sp 
eira] d 
lea. | ret param(pc),a0 
lea. | nsg errorí(pc),al 
rts 


ボボ ボネ ボボ ポポ ネネ ネネ キキ XOR LINE $254 ポポ ネネ ネネ ボボ ボボ ボボ ボボ ネネ ボボ a 








Line, 2: 
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ARM P ۴۷ ایا ۷ایا‎ RUN NN RR ۴(۴ UR MRR UR UR ای‎ PORRO POE POL ای ۷ ا[‎ RU PO ۷ ۷ ای( ا‎ ۷ PUER PRU ROLL PUE FA RE REL 5 一 5 複 公 関 数 [XLINE PTLINE, "TCLS, (^um 








move. | Al, 0 
move. | X2,d1 
move.] LL 
move. | و‎ 9 
move. | dø, dp 
move. | dZ, d 
sub. | dð, d1 
sub. | d 43 
cmp. | 80 dl] 
bet, 1 PLUSX 2 
| beq.] 2 
| move. | 6 S GNA 
muls E-b.di 
bra CONTA -Z 
ZEROX 2 move. | #0, SGNX 
bra CONTI 2 
PEUSA-Z2 move. | #1, 5GNX 
CONTI 2 move. | di,ABSDLTX 
muls #2, d1 
move. | dl,ABSDLTX2 
move. | ABSDLTX,d1 
cmp. | 80, 20 
bgt.] FLUST.2 
beq. | LEROY 
move. | #-1.SGNY 
muls $-1,d3 
bra CONT2. 2 
ZEROY. 2 move.] #0, SGNY 
bra CONT2. 2 
PLUSY. 2 move.] #1, 1۷ 
CONT2..2 move. | d3, ABSDLTY 
muls #2,d3 
move. | d3, ABSDLTY2 
move. | ABSDLTY,d3 
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Anm 第 5 x X- BASIC TRI. Ge 外部 定義 関 数 * 事例 集 ARM RPM PM P ۷ ایا ۹ ا‎ Ru PAM RM Pd P فی نز ای ای اط ۹ ای ۹ ایا ایا ایا ایا ایا ایا ایا ارا ایا ارا اا ایا اا اا اا‎ PE لی‎ ri 











cmp. | di, d3 
bgt. | BIGY_2 
BIGX_2 nove. | ABSDLTX, d4 
muls #= 1, d4 
Girl d5 
L00P1.2 nove. | d8, SX 
move. | d1.8Y 
| bsr XORPSET. 
| add. | SGNX, d6 
x Sd ABSDLTY2,d4 
| cmp. | #0, 4 
| bIt. | CONTBIGX_? 
| TURA SGNY, d7 
| sub. | ABSDLTX2, d4 
| CONTBIGX 2 addq. 1 #1,d5 
| cmp. | d1,d5 
| SE LOOP1_2 
| bra CONT. 2 
| BIGY 2 nove. | ABSDLTY,d4 
| muls #-1,d4 
mirra d5 
L00P2 2 nove. | d6, SX 
move. | dii. 5Y 
bsr XORPSET 
add. 1 7 
add. | ABSDLTX2, d4 
cmp. | BH. d4 
blt. | CONTBIGY_2 
add. | SGNX, d6 
sub. | ABSDLTY2, d4 
CONTBIGY_2 addq. | #1, db 
cmp. | 00 5 
blt. | LOOP2_2 
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一 5 複合 関数 「XLINE」 「TLINE」 TCLS] 1۸8۱‏ 5 فان ا ا ا ا ؟ لن ال نی لی یک لی نی ۴ی( MN‏ ای ای ۴ی( ای ار PM‏ ا ای ار ۱ تی NEE‏ 


CONT 2 rts 


EE E T'E KE OF OFF FOF OF OF OF OF ۹F‏ بد بد پہو یہو ہو ہے XOR PSEI‏ ٭٭٭٭٭ ہم یہ یی 


„even 

XORPSET: 
move. | d6, TEMPX 
move. | d7, TEMPT 
mulu &£1024,d7 
add. | d6,d7 
add. | d6,d7 
add. | &$c00000,4d7 
move. l d7,a4 
move. l COL, wy 
eor. ا‎ d7, (a4) 
move. | TEMPY, d7 
move. | 0) , dp 
rts 


اک ا TETT TT‏ نا 


„even 
tcls: 

move. | IZ0sp), LOL 
cr. 1 -(sp) 
dc.w super 
addq. | #4, SD 
move. | dQ, sspbuf 
wove. l usp, a0 
move. | að, uspbuf 
move. | COL, dp 
cmp. l #0, d0 

blt clsall 


cmp. | 80, 0 





mm 529. X-BASIC て 役立つ 外部 定 FEP ° 事例 ` “nunuanununununananunununanunununanunununununanununununununununununununununununuñi 
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move. 
move. 
move. 
dc. w 


addq. 


uspbuf,a8 
að, usp 
sspbuf,-(sp) 
Super 


#4, en 


0ھ 
ret_param (pc), a0‏ 


msg_error(pc),al 








Xokolokoleokokololookokololokolololeokokolokokoloolokelolooolelololelokoeteloloeolekooeoleleloeoeeecek 


clsall 


transall 


move. 
move. 
move. 
move. 
move. 
move. 
move. 
move. 
move, 
addq. 
addq. 


#$e00000, af 
#$e20000,al 
#$e40000,a2 
#$e60000,a3 
#0, 0 

dð, (að) 

dð, (a1) 

dð, (a2) 

dð, (a3) 
#2,a0 

#2,a 1 








cls0 


trans) 


clsl 


trans] 


cls2 


trans2 


addq. | 
3 .1ل‎ | 
cmp. J 
bne 
bra 
move. | 
move. | 
move. w 
addq. l 
cmp. | 
bne 
bra 
move. | 
move. | 
move. w 
addq. | 
cmp. | 
bne 
bra 
move. | 
move. | 
move. w 
addq. | 
cmp. | 
bne 
bra 


5-5 複合 関数 「XLINE」「TLINE」「TCLS」 


#2,a2 
823 
0)8 90ء"‎ 


transall 


return.t 


#$e00000, a0 
80, 0 

dð, (að) 
#2,að 
0ء88‎ 


trans 


return e 


۴8۹۵۷۵ 
80 0 

d8, (a0) 

6ْ ah 
t$e40000,2a0 


transl 


return.c 


1۴۶ a0 
#0, da 

dð, (að) 

#2, a0 
#$e60000,a0 


trans2 


return_c 
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cls3 


trans3 


Feturn_c 


return 


kkkkkkkkkkkkk** 


ret_param 


msg error 


SSpbuf 


uspbuf 


move. 
move. 
move. 
addq. 


cmp. | 


W 


۷۵۷۵ء 8 
0 ,80 

dð. (að) 
#2,að 

#$e8 N00, að 


trans3 


uspbuf.af 
að, usp 
sspbuf.-(sp) 
_Super 


#4, sp 


dà 
ret و۰8‎ ۲3 ) 90 


msg erroripci, al 


Jy-y 八 " う メー タダ sxxokkokokokokokokokokokokokokokekekeekeokeekelokelokek 


“外部 関数 エニ エラー で す ".,9 























一 5 複 A 関 T 「XLINE」 「 本 LINE 」 kee 1۸۷۶۱‏ 5 ۹ لی ا ای ۴ ای لی UR NR NERVEN RENE RR‏ ای MURMUR‏ ای( Pd Püd Pd Pd Pd Pd Pd P Pd Pd Pd Pd Pd Pd PO P Rd PURO‏ ا 

















kkkkkkkkkkkkkk*k リー ク IJ? X55232 ٭‎ xk xk xk xk xk بد‎ sk غاد غاد‎ koe ke eee xkekeokokekekekoeeexeG 

adrsl de: 0 

adrs2 de] H 

TEMPX de. / H 

TEMPY mx] H 

XI de. 1 H 

Yl 00 0 

Na dec. H 

2 gu 0 

S X desd H 

SY des d ü 

COL de. 1 0 

SGNX de 1 H 

SGNY de. H 

ABSDLTX decd 0 

ABSDLTY de. 1 H 

de] H‏ 2ھ 

ABSDLTY2 dio d H e 

K E EK K K k k Ok K K k اد‎ k k k k k k k k k بد ماد ماد‎ KKK ید اد‎ Fk بد اد‎ Sk xk f Fk Sk f KF KK kk Sk Fk Sk kk xk OF jme 

. end 
この 関数 で は , IOCS ュ ユー ル を 使用 し て いま せん 。 こ こ で は , 基本 概念 と し て 整数 で の 処理 に k | 
ゃ ライ ン 処 理 の 考え 方 で ある DDA 法 を 使っ て いま す 。DDA 法 と 言う の は , 基本 的 に 整数 で 直線 の i 
方 程 式 を 近似 的 に 解く も の で , グラ フィ ッ ク 関 係 の 書籍 で は よく 扱わ れ て いる 技法 で す 。 と も か AE 
く , マシ ン 語 で 実数 計算 する の が 非常 に 難し いた め , こう し た 整数 で 処理 を 行う る の に つい て 
の 知識 を 持っ て いる と 便利 で す 。 1 
L 
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inum gs 5 TE X-B ASICC £z 3 yt Kee 表 関 数 < 事例 集 ای ۷بی‎ Pd FO P P فی‎ Ru PLU ROG Ru Ru Od RM Ru RR RR U Ru ی۹‎ Ru Ru Ru POP R uRuRMRuRuRuRuRuRuRuRununi 


-B XOR タ イプ の CIROCLE 





リス ト 6 
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X * K با‎ * * * * k ** k * k £ kk ما‎ oko ke oe ok eoe غاد بد ید‎ oe coke oe coe oc xke oc xke بد‎ c eoe eoe ke بد با یعاد‎ eoe xe اد با‎ e x 
* x 
* BASIC EXTERNAL FUNCTION PROGRAM LIBRARY E 
* * 
* 月 刊 マ イコ ン BH * 
* * 
* 昭和 6 2 年 7 月 16 日 制作 * 
* * 
* PROGRAMED & Typed by 宮原 哲也 * 
* * 
* d ور‎ R CIRC LEY} Verip) * 
* * 
k k k kk K K K K k k k k K K K KKK k K k k oc k k oc k ook k k k بد‎ k kkk k k k xe kk k k kk باج اد‎ k k باج‎ k k x k با‎ 


.extt equ $ff00 
. text 
* £ k k x x * £ £ k £ £ e £ £ £ k k k x £ k £ £ k k k k k k k k k ox k £ k x e k £ £ k k x £ 


int_val equ $0002 
int ret equ $8081 





MRR NR RU RR OR NR 5 D XOR メダ イン レ )CIRCLE ' XCIRCLE 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk** 


Adr init 
adr run 
adr end 


adr_system 
adr_break 
adr_input 
adr_reservel 
adr_reserve2 


adr_token 


adr_parameter 


adr_exec 


reserve 


dc. | 


de. / 
dc. l 
dc. | 


return 
return 
return 
return 
return 
relurn 
return 
return 
token_table 
param_adr_table 
exec_table 


6908 


KOK OK KOK K ید با ماد بد اد اد‎ TTT TTT TT TTT TE EE TEE EE EEN 


token table 


dc.b 


"vcirclei 0,0,0 


O OO K K k K K k k k K k K K K Kk k kk kkk k kkk kkk kkk kkk kkk 


. even 


param adr table de 1 


param table 


dc.w 


dc.w 


param table 


int val. int val, int. val 


int. val, int. val, int ret 


Xckokekokokokokokoekoekokolokokeokolokokookokolokoeeloleloeookeokololoekeekolokoeokekex 


exec table 


. even 


do] 


xcircle 


ボネ ホネ ポキ キネ ポポ ポポ ホホ ホネ ポポ ネネ ポポ ポキ ネネ ホネ ポポ ボネ ネネ ネネ ネネ ネネ ネネ ネネ 


xcircle: 





,even 


move. | 
move. | 
move. | 
move. | 


move. | 


? ات 
dc. w‏ 
addq. |‏ 


move. | 


- (sp) 
_super 
#4, sp 

dð, sspbuf 


DL 
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第 5 童 X-B ASIC で 役立つ 外部 定義 関数 ・ 事例 | TS “inunununununanunanunununununwnunwnununununununununununununununununununununununumi‏ دم 





move. | 0 9۷۵ 

move. | a0. uspbuf 

ber . CIRCLE 

move. | uspbuf,a9 

move. | að. usp 

move. | sspbuf,-(sp) 

dc. w super 

addq. | #4, sp 

GE dð 

lea. | ret_param(pc),a9 

lea. l msg error(pc),al 
return rts 

.even 
ret param dc.w 0 

dc. | 0 

dec. 1 1 
msg_error dc. b "外部 関数 エラ ー で す ”",9 
5 اطم ٭‎ f dc. |l H 
uSpbuf dc. | 0 


K بد‎ K k K K k بد‎ £ £ K * £ K kk Kk kk E E E E E E E E E E E E E E 











.even 

CIRCLE: 
move. |l RR, d2 ; 
muls #64,d2 ; 
move. | d2,X ; X=R*64 
eTE. 1 d2 ; 
move. | 42, Y ;Yz0 

loop move. | Y, Y ; 
move. | RR,d3 ; 
divs d3, 2 ; Y/R 
andi. l #$ffff,d2 
move. | X, d3 ; 
sub. | d2.d3 (XT IR 
move. | d3, XN :XN=X-Y/R 
move. | RR, d2 : 
divs 42743 ;XN/R 
andi. l #$ffff,d3 
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gd うー 

move. | 2 
add. | d2, d3 
move.] d3, YN 
move. | XN,X 
move. | YN. Y 
move. | XN, dû 
move. | HSV, d1 
muls d1, d0 
divs #64, d0 
andi. | #$ffff, dQ 
move. | AH, dl 
muls #64, d1 
add. | di,d8 
divs #64, d0 

/ 64 
andi. | #$ffff,d0 
move.w d0, SX0 

// 4 
move. | Y0,d1 
mave, | YN. d2 
muls 864,1 
sub. 1 d2,dl 
divs $64,dl 
andi. l #$ffff,dl 
addq. | SI. di 
move.w d1,SY9 
move. | X0, dð 
mu ls #2, d0 
move. w SX0, d1 
sub. | d1, dp 
move. w 001 
move. | Y0, dp 
muls SZ. dp 
move.w SY8.dl 
sub. | dl.d8 
move.w dð, SYI 
bsr XORPSETI 
move.w DER, d0 
move. | XQ, d) 
sub. w d1, dp 
cmp. w 8060 
bgt loop 
rts 





XORK タ イプ の CIRCLE「XCIRCLE」 


; XN/R+Y 

; YN=XN/R+Y 
; X=XN 
)Y=YN 


; XN*HSY 
; (XN*HSV)/64 


4ء۰۸ 


;X0*64+(XN*HSV)/6564 
; (X0*64+(XN*HSV)/64) 


;SX0- (X0*64* (XN*HSV) 


; Y0*64 
: Y0*64-YN 
; (Y0*64-YN)/84 


: (Y0*64-YN) / 64+1 


:SYUz(Y0*64-YND /84*1 


; 2*X0 
: 26-90 
;SX1=X0*2-SX0 


: (۵ 


۰ 
, 


;SY1=Y0*2-SY0 


۰ 
, 
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mud 


CEET ran 


nou 


=. 


ہم 





uec 


ta: 4 





ew As e 





mn qon X-BA SIC で 人 役立つ 外部 定義 関数 ・ BDO inunununununununanunununununununununununununununununvnununununununwnununununununi 
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K K K K K K K K X 2 2 K K KOK OK K K KOR OR OK OK OK K K K K K K بد‎ K R K K R K K R با بد بد‎ KR KR KOR KOR R R R KR KOR R K R RR R RR بد بد‎ OR R R ROR R R R OR R K 


XORPSETI! 


.even 


move.w 
move. wW 
mulu 
add. 1 
add. | 
add. | 
move. | 


move. | 


move. w 
move. w 
mulu 
add. | 
add. | 
add. | 
move. | 


move. | 


move.w 


move.w 


mulu 
add. 
add. | 
add. 1 
move. | 


move. | 


move. w 
move. w 
mulu 
add. | 
add. | 
add. | 
move. | 
move. | 
Or. WW 


rts 


SX@, d6 

8 7 
4“ 7 
dp, ۲ 

dp. di 

8“ 0 d7 
d7,a4 

COL, d7 

d7, (a4) 


SX1,d6 
SY9.d7 
#1924,d7 
d8.d7 

d6,d7 
#$c00000. d7 
d?7.a4 

COL, di 

dl, (a4) 


SX@, dp 
SYI.di 
#1924,.d7 
d6,d7 

d8,d7 
#$c99999,d7 
d7,a4 
COL,d7 

d7, (a4) 


SX1,d6 
SYl.d7 

84 7 
d6, d? 

dp, d7 
#$c00000, d? 
d7,a4 

CUL aT 

d7, (a4) 








IRMRURMAMAMAMAMAMAMAMAMAMAMAMRMAMAMAMAMAMAMAMAMARMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMRMRMAMAUM D — (5 XOR X 4 ZOCIRCLE 「XCIRCLE」 RT 





N d'Gei H 
Y dossi H 
AN dc. | H 
۲0 de 0 
RR dc. | り 
SXM de, 1 H 
SYY de. 1 H 
5X] dc. | H 
Sr? de. I 0 
COL dp. 1 H 
XN déi H 
YN del ð 
HSV de. 1 0 
* 
end 
A A d 








この 関数 を 使用 し た X-BASIC の サン プル プロ グラ ム は , 第 5 一 5 図 の 通り で す 。 








IO "et 3: E کے مو‎ 
28 for resp to 999 


30 x=rand()/128 
40 y=rand()/128 
50 r=rand()/327 
60 c-rand()*2 





70 if r=9 or x-r«80 or y-r«8 or x*r»511 or y+r>511 then continue 
88 xcircle(x,y,r,c,48) 

90 next 

100 end 





f 


第 5 一 5 XCIRCLE の サン プル プロ グラ ム 








この ブロ グラ ム は , 終了 し た 後に も う -- 回 実行 する と xor の 面白 き が わか り ま す 。 乱数 系 を 初期 
化し て いな い の で , も うぅ 一 度 実行 し た 時 も 同じ 乱数 が 発生 する の で , 皿 実に 一 回目 の サー クル を 
レー ス し て いき ます 。 た だ し 。 こ の プロ グラ ム で せ は 。 xime の 時 と 同じ 〈 二 回 目 を 実行 する 時 に 
グラ フィ ッ ク 画 面 を 消去 し な いよ うに screen 命 令 を 使用 し て いま せん 。- 回 目 の 実 行 の 前 に , ダイ 
E, سے و‎ SE 
sorcem 73. du T. ori 
と し て か ら 実 行 し て 下さ い 。 実行 結果 は , xline の も の と 同じ に な る と 思い ます 。 
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SEG 


IL 





ERIT rim rt Cert EP LE 


wm ` wam M 
4 


EU 


X -BASICc fr. つ 外 部 定 義 関 数 š 事例 f (RP Pd Pd ۴۷ Pd PO ۴۷ یا ۴۷ لیا‎ PU Pd Pd Pd PU Pd ۳۹ یا‎ ۴ POE POPULO FR PU 5 ای ۴۹ لی ۴ لیا ۹ لی ۹ لی ۹ اط ۴۹ لی ۴ ای ۹ ای ۹ ای ۴ لی ۹ ای 8 ایا‎ RR RERO 


AU m E 
ALL LA EES Fi. A 











5-7 検索 機能 付 FILES 関数 
07 rFFILESz=== _ 














/ 

^ 

6000 
p 





EES 



















PBP n: 


Sat ZORON 


数 の 文字 配列 に 格納 し て 














7917 


X ck * k koe oe o * £ * e £ x e £ * بد‎ * o e X £ o o o £ X £ k k k o e £ k £ k 2 £ £ £ k k £ £ £ £ k £ £ k £ £ £ £ £ k £ £ 
* * 


* BASIC EXTERNAL FUNCTION PROGRAM LIBRARY * 





* 月 刊 マ イコ ン Nnm * 
* 昭和 6 2 年 8 月 18 日 制作 * 
< PROGRAMED & Typed by 宮原 哲也 + 
* Coca KI Le Sie و جا‎ paran * 


| x * 


ネネ ネネ ネオ ネネ ネネ ネネ ネネ ネネ ネオ ネネ キネ ネネ ネネ ネネ ネネ ネネ オオ ネネ ネネ ネオ ネネ ネネ ネネ ネネ ネネ ポポ ネネ ネネ ポキ ネネ ネネ ネネ 





files equ $ff4e 
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ロー ア Lë BEBE SFFILESIE 数 「FFILES」‏ ای ۴ ا ان ۴ یی ان ۴ لی لی ۴ی ۷ ین ۴ل لن لا لن ای( لا لی ایی ای ای۷ ایی ای ای٣۷ RM‏ ای ۷ا ی۱ ای ۱ تر ایی یر ہر یر یر 


equ $ff4f‏ 8 ۔_ 


kdokckolelekekeloeoeeeeee Parameter. ID ネネ ポポ ポポ ポポ ポポ ポポ ボボ ポポ ポポ ポポ キキ ポキ 


۲٢٢2997 edU $0002 

str.val : equ $0008 : 文 字 列 の 引数 用 
str_dim equ $0038 : 文 字 配 列 の 引数 用 
(nl rei equ $8001 : 束 数 の 戻り 値 用 


Information Table ********** E k k k R k k k k kk E‏ ٭٭٭٭٭ ۴ل 


. even 

dc. | return‏ تا ور ھا 
a 06 dea! return‏ 

a end desi return 
a_sys de. 1 return 

a brk de. l return 

à. inp de, | return 

a rsrvl dé. return 
و‎ 2 de. 1 return 

a token de. 1 token tbl 
a parm de 41 parma tbl 
a exec doal exec_tbl 
reserve dé. 1 0 0. MH 


ネネ ネネ ボボ ポポ ネネ a ポポ ネネ ネネ キネ ポポ Token Table る を る る る る な を る る を る を を を を を を を る を る を 


.even 


token tbl dc.b "ffibkesi,445 


ookokokokekelokekekokokboeee Parameter Table ************************ 





287 














imm ]و‎ 3X  X-BASICT YO FE EHH ・ FANIE inanunanununanunwnunununanananunanunanananununununununununununununununununununumi 


.even 
parma thl dë: parm tbl 
parm tbl dc.w int, val,str.val,str dim.int.ret 


kkkkkkkkkkkkkkkxk Exec Adr. Table deeeeekoekolebelelboekeeeeex 


. even 


exec tbl dc. i ffiles 


kkkkkkkkkkkkkkkkk Function Main *kkkkkkkkkkkkkkkkkkkkkx**** 


.even 
ffiles: 
move.| 12(sp).d1 
Bovea.l 22 (sphia2 
movea. | 32(sp),a1 
lea. | 18) 1 ,1 
eI. s - (sp) 
dc.w Super 
addq.] 84: 5إ‎ 
move. | dð, ۶ا‎ 
move. | usp,að 
move. | að,uspbuf 
lea. | airas 
next byte move.b (a2)+, (a3)+ 


move.b (a2),d0 
cmp. b 800 
bne next byte 


soye.b..(a2)].fa3) 
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Ua زی ( ایز ۴ ارز ۶۹ ارز ۷ ایا ۷ ایز ۶۷ نی ۴۹ ۴۷ ای[ ایا ۴ ای[ ا [۴ بی [ ایز 9 ا ۹ ای ۹ بی ۹ ایا ۴ ای ۹ )را ۹۷ ایز ۷ اط ۹ کیا ۷ ایا‎ BI BI Bl Bi al Bl al al Bl Bl Bl ۴ b B BP Bi ۴۹ B bl 


next read 


next fname 


GZ: d2 


Bove." d1- Usp) 
pea atr 

pea filebuf 
dc. w -files 


| ea 19(sp), sp 


cmp. | #0, 40 


bm i comeback 


addq. | #1.d2 
movea.l al.a3 
| ea name,a2 


iO year l a3.al 


move.b (a2)*,(al)* 
move.b (a2).dl 
cmp. b SH, dl 


bne next_fname 
spove,.b. €a2)5,ta1) 


pea filebuf 
dc.w  nfiles 


addq. | #4, Sp 


cmp. | #0, 0 


bmi comeback 


addq. | 8ٗ" 72 
adda. | OID 


bra next read 


検索 機能 付 FILES 関 数 「FFILES」 “= 





` 
E 

2. 

| 
E 
PT 


gv 
1 


M 


i! ۲ T 
e 
inge 


A vireg n 






C 
DATE 


isa Maias 


e‏ ات و 
inus‏ 


IM 
Md 


J 
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mm 23361 X-BASICC 役立つ 外部 定 三 関数 ・ 事例 集 — inunununununanunananununananwnunununununvnununununununununununununununununununum 


comeback 


continue 


return 
sspbuf 
uspbuf 


answer 


msgerror 


"Lr 


filebuf 
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move. 


move. 
move. 
move. 
dc.w 

addq. 


dc.w 
de. 
Bu. 1 


dc.b 


d2.answer*6 


uspbuf.a8 
að, usp 
sspbuf,-(sp) 
_super 

#4, sp 


dp 
answer(pc).af 


msgerror,al 


eO OD Um بی‎ UO 人 UO 





(PM RM ار‎ PR M FA ای‎ FA ایا‎ PU FA ایا‎ Rad Pd PA ایز‎ PA ای‎ PA ایا‎ Pd ۴۹ ah PA ای‎ PA M PA ای‎ RUP ۴۹ hal PA ای‎ Pd Pd Pd PA ای‎ PA ایا‎ RMR ای‎ Ru MURR PA ای( ایا ۹ ایا‎ PA ایا‎ PU PA ا‎ PA MR UR UR 5 一 7 ; $E E 付 FILES 関 Ek "FEIT EG: inim 








ds. b 

dc.b 

dc.w 0 

dc.w 0 

desd 0 
name ds.b CN 

end 











SOT اک‎ ET は 。TIOCS ユ ー ル を 使用 じ て い ませ ん 。 フ ファン クシ ジ ショ ンコ ユ コール に より 9 基 李 的 な 
ファ イル 操作 を し て いま す の で , Human68k マ ニュ アル 巻末 の ファ ンク ショ ンコ ー ル 一 覧 を 参照 
し て 下さ きい 。ffiles 関 数 を 使用 し た XX-BASIC の サン プル プロ グラ ム は , 第 5 一 6 図 の 通り で す 。 


| گے ہیں 








— 





10 str s 

20 int x=50.n.i,m 

30 input" input file name:".s 
40 dim str f(59) 

58 n-ffilesíx,s.f) 

60 for i-U to n 

70 8902 や パト キク 

80 next 

90 end 


TE جس‎ de Ge E 9 
第 5 一 6 FFILES の サン プル プロ グ クラム 

















この ブロ グラ ム を 実行 する と , 画面 に 検索 し た いひ ファ イル ネー ム を 閉 い て きま すか ら , 検索 し 
だ た だ い ブ プ アァ 人 塗 ルネ ー ム を 入力 し て 下 き い 。 据 り 値 の n が 0 の 場合 は 。 その フラ ァイル は その ディ レク ト 
『 内 公 欄 Ss 玩 定 信人 の フロ ッ ピ 肉 に な いこ と に が な が ザ ま す 。 指定 する ファ アイ ルネ ー ム は 。 
ワイ ルド カー ド が 使用 出来 る を ため,、 k, * ま と すれ ば ファ イル すべ で て が 。 Ss fnc と すれ ば ネネ *. 
fnc と 言う ファ イル すべ て が 配列 に セット きれ て 戻り ます 。 プ ログ ラム を 作り , デー タ 管 理 あ する 
と き に どん な ファ イル が 存在 する か を X-BASIC の ブロ グラ ム 中 に 関数 と し て 持つ こと は 非常 に プ 
ログ ラム を 簡略 化 る きせ て くれ ます 。 
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inum POR X-B ASIC で 役 立つ 外部 定義 関数 ・ 事例 -2ٹسڈپپ,پییی ,ای‎ 7 7 020 


5-8 


ホ ポップアップ メ エニ ュー 


POP AF 








この 関数 で 使用 し た IOCS ュ ユー ル は 次 の 通り で す 。 ま た 枠 を テキ スト 画面 に 表示 させ る た め ,。 


tiine ( ) の 関数 の - 


IOCS コ ユー ル 番 ? 
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部 を 利用 し て いま す 。 


が:$10…… 画 面 の 表示 モー ド を 設定 現在 の 表示 モー ド の 読み 取り を する 
$15……… テキ スト VRAM の 指定 を し ます 
$1a……… テキ スト 画面 か ら 指定 地 胃 の パタ ー ン デー タ を 読み 込み ます 
$1b…… RENE HE eas tin p ic さき 込み ます 
821۰۰ テキ スト 画面 に 指定 し た 文字 列 を 書き 込み ます 
$22……… テキ スト 画面 の 表示 属性 を モッ ト し ; す 
$23……… ー ソ ル を 指定 位置 に 移動 きせ ます 
$71……… haeredes 
$74…… マ ウス の 移動 量 ・ ボ タン の ON プ OFF の 状態 を 読み 取る 
$75…… x= B o 
$76…… マ ウス カー ソル の 位置 を 指定 す 





0 ای ۴۷ ای ۹۹ ایز ۹ ایز ۹ای ۴۷ ایا ۷ را‎ RR کیا ۹ ای 7 ایز ۴۹ ای ۷ ایا ۴۹ ایز‎ ١ کی ا(۹ ایز ۹ ایا( ایا ۴۹ ای۴ ای ۹ ای ۴۹ ار ۴۹ ایا ۴ ایا‎ ۴٣ ایا ۴۹ بی‎ RV RN PMR ۷ ایا 7 ار ا ۷ ا ایا‎ ۴ MAHAL 5-8 PES ツ SÉ Te プー ん こら ー 関 数 FPOP U Pi imum 





けり スト 





[る する を と る を な を を を を を を を を を を を を を を を を を を すす を を すす を ます る を を る を を を を を を ます る すす だ を を を を を を すす を を 


* * 
x BASIC EXTERNAL FUNCTION PROGRAM LIBRARY * 
* H 
* 月 刊 マ イコ ン 別冊 * 
` . 
* 昭和 62 年 8 月 11 日 制作 * 
* x 
* PROGRAMED & Typed by 宮原 哲也 * 
E " 
& € POP. UP WENU-)3;? Seet E? < 
* * 


k k k * * + K * K * k kk k k k kk k kk k kk k ke ok c kk kk k k k oc بد‎ k k k oc k k k k k k ند بد‎ k k k x xv x x 


ボボ ポポ ポポ ボキ ポポ ネネ ネネ ネネ Parameter [D ネネ ポキ ネネ キネ ネネ ネネ ポポ ネネ ネネ キキ ネネ ネネ ネネ 


int_val equ $0882 整数 の 引数 用 
str dim equ $8038 文字 配列 の 引数 用 
int ret equ $8001 : 整数 の 戻り 値 用 


×× ۰.٭٭٭٭۴ داد‎ Information Table dseeekeoeerokoloekoekelookokolobolokekokokekolokelolobokbooex 


.even 
a init dc. return 
a run dc. | return 
a end dc. | return 
a Sys dc. | return 
a brk de. 1 return 
a inp dei return 
a rsrvl de, | return 
a_rsrv2 dc. | return 
a_token de. l token_tbl 
a _ ۵8۵٥ de. i parm a tbl 
8 exec de, 1 exec. tbl 
reserve dc. | 9, 9, 90, 0,0 


اد با k‏ با زا اد اد اد زد اد تاد 33335 3352343333 53553 ید ید اد ید ود ود بعد بد اد ود دع کے [ dokokokoloooocccoeeee Token Tab‏ 


, even 


token. tbl dc. b "pop ّں‎ ۶'۵ 
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ل۷ ا ایز ا ای ا ایز ایز ای ا یز انا ای ای یی ای ا یی از ای ا یا ار نی ایریا ار زی یا یزار RPM‏ یہ بر ۸ oO 5 SS X-BASIC で 役立つ 外部 定義 関数 ・ dei fE mum‏ 


ネネ ネネ ネネ ネネ ネネ Parameter Table ネネ ポ ボネ ポポ ポポ ポポ ネネ ポポ ポポ ポポ ポポ ポキ ポポ ポポ ポポ ネネ ポポ ネネ ポポ ポポ ネネ 


„even 
parm_a_tbl de: 1 parm tbl 
parm tbl dc.w sir.dim, int.val,int.val, int. val 
dc.w int. ret 


Xokokokokoleelokokokokooeee Exec Adr. Table XKXXXHKHKKHKKKKKKKKKKKKKKKKKKKK KKK KKK 


. 1 


exec_tbl dc. | pop_up 


dokckokololeelobeeeeoeeee Function Main بد دز ید تد ید بد ھدب اد ید یو بد اد ید ید مد ماد‎ K بد 0 42 بد‎ k با بد اد اد‎ k k 


pop.up: 
move. | #9,max_len : ワ ソー クエ リア の 初期 化 
movea.l 12(sp),a0 : 引 数 1 
lea.l  18(að),að : 引 数 1 文字 列 の 
move. | a9,str_pointer >: イー ング アー アド シス 
move.] str_pointer,pointer 
move. | 22(sp) ,d9 j 引 数 2 文字 列 の 数 
move. |l d9,number | 
move.| 32(sp),d1 j 紀 | 数 3 XX 座標 
move. | dli,ms x 
move. | 42(sp),d1 ij 引数 4 Y ES 
move. | dl,ms y 
move. l 1 文字 列 の オフ セッ ト 
cmp. | t1,d0 : 引 数 3 が 0 か 1 の 時 
ble abort ; の 処理 
count_len move. 1 2۔8‎ 文字 列 の 最大 文字 数 
count char addq.| 72 : の 計 算 
tst.b (a0) + 
bne count char 
move. | max len,d3 
cmp. | d3,d2 
blt no_opel 
move. | d2,max len 
no opel subq.| 0 
beq check adr 


move. | pointer,a り 9 
add. 1 dl, ap 
mOVe. | 8, س٣‎ 


bra count len 











۲7 ا‎ RPM RR ۹ ای یا‎ RHR RR RR ای ۷ا‎ RP PU Pd Pd P Pd Pd P Pd PORRO Pd POP لی( از‎ ۹ MURMUR ای‎ RO PRO ای‎ 5-8 2 RS RSE SE ー 関 数 ۳ OP "NJ Pj man 


check_adr move.w &-l,di ; 表示 モー ド を 
moveq  . 08 ; 調 べ る 
trap #15 
cmp. | 81, 09 
beq dot768 
lsr. 1 #2,d0 
bcs dot256 
dot512 move. | #511,max_x : 表 示 モ ー ド に より 
move. l #511,max_y 表示 範囲 を 変更 する 
bra dot check 
dot256 move. | #255, max_x 
Bove. | #255, nax y 
bra dot_check 
dot768 gove, | $4767,max x 
move. l 88511, aan y 
dot check move.l ms x,di ) 表 示 可 能 範囲 か どう か 
move. | ms y,d2 : 調 べ る 
move. | number,d3 


move. | max len,d4 
divu #8, di 

divu #16,d2 
ext. | d 1 

ext. | d2 

mulu #8,d1 

mulu #16,d2 
mulu #16,d3 
mulu #8,d4 


cmp. | #0, di (con $ü BH 3k Ze O 

beq ofset_adr_xs iW 2 te] を か ける 
cmp. | #0,d2 

beq ofset_adr_ys 

subq.| #2.d1 >: メニュー ボッ クス 用 の 
move. l 18 : 4 点 の 座標 を 計算 する 


Subq. | Fi d2 


move. | d2,ys 


add. | d3,d2 
addq.|  $1,d2 
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mm 45:35 XX-BASIC で 役立つ 外部 定義 関数 ・ 事例 集 nanananunununununununananunannananwnanwnananwnanununununununununununununununum 


move. | d2,ye 


add. | dl. d4 


add. | #3,d4 
move. | d4, xe 
move. | ×1 


cmp. | max x,dl 


bgt ofset adr xe 


move.l ve, dl 


cmp. | max y,dl 


bgt ofset adr ye 
menu box move.l ms y,d2 :X 座 標 、Y 座 標 に 
divu #16,d2 : メ ニュ ー 用 の 枠 を 
ext.| d2 | : を 作る 


move. l ms x,di 
divu $8,dl 
ext. | di 


move. l dl,x_pos 


move. | d2,y_pos 


moveq #2,d1 : ボ ックス を 書く 前 に 
moveq  #$15,dð : ボ ックス の 大 き さ だ け 
trap #15 : 了 テキスト を 保護 する 
move. | ve, dü 5 テキスト ペー ジ 2 の 保護 


sub. | xs, d0 

addq. 1 #3,.d9 

move.w dQ,vram_buf2 
move.w dÜ0,wxe2 
move. | xs,d0 


move. dÜ0,wxs2 


move.l ye,d®ð 

sub. ! ys,d0 

addq. | 90 

move.w dg,vram_buf2+2 
move.w ۰. wye2 

move. | ys,d9 


move.w ,۵ا4‎ wys2 


move.w wxs2,dl 
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move.w wys2,d2 

lea. | vram buf2,al 

moveq t$la,dU 

trap #15 

moveq #$1,dl : テ キス トペ ー ジ 1 の 保護 

00 ۹ #$15, d0 

trap #15 

move. l ×۵9 

sub. | xs, dð 

addq. | ۵8۵ 

move.w d,vram bufl | 

move.w 18, ١٢ | 

move. | ×0 | 

move.w 6,۵۱1 | 
il 

move. | ye,d8 i 

sub. | ys, dð d 

addq. 2۵ lu 

move.w d,vram bufl*2 | 

move.  d9,wyel 

move.l ys,d& 

move.w 48,۴۳ ۲٤آ‎ 

move.w 8×11 

move.w  wysl,d2 

lea. | vram bufl,al 

moveq #$la, d0 

trap #15 

bsr boxline ; ボ ックス の 表示 ( K 2 š ) 

move. | #l,answer 答え の 初期 値 

bsr print menu : 最 初 の メニ ュー 表示 

moveq  #$71,dð > マス カー ソル の 

trap #15 ; 表示 

move. | ms x,d8 : マ ウス カー ソル の 

isi. d #8, dû : 最 初 の 位置 の セッ ト 

ISl. f #8, d0 

andi. | ٭‎ ۶0 dO 
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P ee E EE EE 


mm نت وو‎ X-B ASIC で 役立つ 外部 定義 関 数 ・ 事例 集 0 ۹لیا ۴لیا ۴۷ لیا ۹ ای ایا‎ NED P PU P PRU RUP PP A RR RRR UR ND MR UR ERR ۷ ۷ی‎ MR RM REENEN 
| 
| 
| 


mOVe. | ms y,dl 
ext. | d 1 
add. 1 dQ, di 


| moveq #$75,d9 


trap #15 
| ms_loop moveq 84 (9 : マ ウス 座標 の 読み 込み 
trap #15 
move. | 1۱1 
andi.| 1 
move. | dl,mous y 
kee, ? K8,d8 


Isr. 1 #8, d0 
andi. | #$ffff,d0 


move. |! ,8ا‎ nous x 


move. | ve, 1 : マ ウス カー ソル が 
cmp. | d8,dl : メ ニュ ーー 内 に いる か 
bhi out_side : ど うか の 判定 


move.l xe,dl 
cmp. I dð, di 

bcs out side 
move. | mous vd 
move.l +1 
cmp.] d8,dl 

bhi out side 
move.l ye.dl 
cmp. | d8.dl 


bcs out side 
bra in_side 
out side move.l anssmer,dl ; × = z — k 8 
beq mous_btn 
move. | 8, ٣۳٣۴ 
bsr print_menu 
bra mous_btn 
in_side move. l ys,dl : メ ニュ ー 内 の 処理 


sub. | dl, d0 
divu #16, dð 
addq.] 90 
ext.| d 
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move. ] answer,dli : 人 答え を 記憶 する 
cmp. | dl, dp 
beq mous bin 
move. | ۹18, 6 ۳٣۴ 
bsr print_menu 

mous_btn moveq #$74,d0 IRORI 60 
trap #15 'ONZOFFĦ#E 
andi. 1 #$0000ff00,d0 
beq ms_loop >OFEFE な ら ル ー プ 
move. | answer,d0 jON の 時 は こち ら 
ext. | d 
move.l d,ret _param+6B : 戻 り 値 の セッ ト 
moveq #2,dl ッテキ スト ペー ジ 2 グ の 復帰 
moveq 8 08 
trap 815 
move.w wxe2,vram_buf2 
move.w wye2,vram_buf2+2 
move.w wxs2,dl 
move.w wys2,d2 
lea. [ vram buf2,al 
moveq #$1b, d0 
trap #15 
moveq  &l,di > テキ スト ペー ジ 1 の 復帰 : 
moveq 8 0 3 
trap #15 : 

۹ 

move.w wxel,vram but = 
move.w wyel,vram buf1*2 : 
move.w wxsl,d! 
move.w wuel, d2 
lea. | ھ۷۴۹‎ bufl,al 
0 9 #$1b, d0 
trap #15 
chr.1 — db : 正 常 終了 時 の 処理 
lea. | ret param(pc),ag : 戻 り 値 の アド レス を セッ ۰ 

error lea. 1 msg_error(pc),al > エエ ラー 時 の メッ セー ジア ドレ ス 
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Feturn 


abort 


ofset_adr_xs 


ofset_adr_ys 


ofset_adr_xe 


ofset_adr_ye 


*/ / / / / / TB / 7/ g 7 / / / 


print menu 


next menu 


move. 


move. 
move. 
sub. | 
move. 
sub. 1 
sub. | 
move. 


bra 


l 
l 


1 


#-1,d0 


error 


#8,ms_x 


check_adr 


#16,ms_y 


check_adr 


max x,dU 
xe.dl 
d9,d1 
ms_x, dð 
dl, dð 
#8, d0 
d8.ms x 


check adr 


max y,d0 
ye,dl 
d8.di 

ms y,d0 
dl,d8 
#32, d0 
dð, ms_y 


check_adr 








; 関 数 の 終了 
引数 2 が 0 だ っ た ら 
LI 9? — چو رط‎ Š 


: 表示 範囲 外 の 処理 
: ル ー チ ン (0 以下 の 処理 ) 


: 表 示 範 囲 外 の 処理 
ルッ ュー Zë Ze 

: 表 示 範 囲 よ り 大 きい 
: 場 合 の 処理 


PRINT MENU ////////////////// 7 7 B 7 / 7 ELE ELE 7 7 7 7 7 7 7 7 7 7 7 7 7 7 / 


move. 


move. 


move. 


move. 


move. 


move. 


l 


str_pointer,pointer 
#1,d4 

answer ,d5 
x_pos,temp_x_pos 
y_pos,temp_y_pos 


number. d3 


d4,d5 
normal 
#11,d1 


color_set 


: 文 字 列 を 表示 開始 位置 か ら 
配列 を 立て に 積み 重ね 表示 
: し て カー ソル 位置 だ け 

: 反 転 す る 








normal 


color_set 


nextspc 


print menu exit 


move. | 


و9 0 


trap 


move. | 


move. | 


moveq 
trap 


move. | 


lea. ] 
moveq 
trap 

Subq. | 


bne 


move. ] 


move. | 


moveq 


trap 


move. | 
moveq 
trap 
subq. | 
beq 
move. | 
add. | 
move. | 
move. | 
addq. | 
move. | 
addq. | 


bra 
move. | 
moveq 


trap 


rts 


83,dl 


#$22, dð 
#15 


temp x pos, di 
temp y pos,d2 


#$23, dø 
#15 


max ۶۵ 


Code, al‏ ط8 
0 8 

#15 

#1,d6 


nextspc 


temp_x_pos, dl 
temp_y_pos, d2 


8 08 
#15 


pointer,al 
#$21, dp 
#15 

#1,d3 


print_menu_exit 


pointer,al 
833,al 
al,pointer 
temp y pos,d2 
#1,d2 
d2,temp y pos 
ٴ8‎ , 4 


next menu 


8301 
#$22, dp 
#15 


FEO C SE 


ポッ プア ッ プ メニ ュー 関数 「POP UP」 am 


表示 色 の セッ ト 


PLOCCIAXTE X. 


PRINT spc$ (max lex) 


に 


PRINT strings 


指定 配列 数 か どう か 
#* の チェ ッ ク 
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*/ //// 7 / 7 7 / 7 7 7 / 7 


boxline 


X- B ASICC 2 GA つ 外部 ^E 3s D] 数 ۰ 事例 tE IRUAWRMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMARMAMAMAMAA 


BOX LINE 77777700 001 


move. | xs,xl K o 2 >0 کر پ5‎ 
move. l ys,yl プル = ザン 
move. l xe,x2 ) 上 の 横線 
move.l ys,y2 

bsr txtline 

move. l xs,xl ; 下 の 横線 
move.l ye,y1 

move. | xe,x2 

move.l ye,y2 

bsr txtline 

addq.1 32,xL. ; 下 の 横線 の 影 
addq. | #2, x2 

addq. | #2, yl 

addq. | #2,y2 

bsr txtline 

move. | xs,xl ZE 0) NER 
move.l xs,x2 

move.l ys,yl 

move. l ye,y2 

bsr txtline 

move. | xe,xl GRO KER 
move. | xe,x2 

move. | ys,yl 

move. l ye,y2 

bsr txtline 

addq. 1 #2,x1 OR AO KRO W 
addq. | #2, x2 

addq. | 82,21 

addq. | 272 

bsr txtline 











mata RO ۹ ایر‎ ۷ d Pd PUR ۹ یا ۹ای ایز ۹ای ۴۹ ایز ۹اا‎ PURO ۴ ۴۹ای‎ POP Rd Pad ND RN NR PU PU ۹ ای ۹ لی ای ۴ ای( ا ای ۹ایا ۹ ای‎ ۴8 5—8 ポップアップ メ ニュ ー 関 数 「POP_UP」 imum 


rts 


*/ / // / / 7777717 TERT Line routine ////////// / / / / / / / / / 7 / / / 7 / / 7 












_exit equ $f f00 
Super equ $ff20 
txtline: 
gels - (sp) に も 直す ROUTINE 
dc. w super :DDA 法 し LINE ルー チン 
addq. l. #4, sp 
move. | d0, sspbuf 
move. | usp, ab 
move. | a9,uspbuf 
ber tline 
move. | uspbuf,a9 
move. | að, usp 
move. | sspbuf,-(sp) 
dc. w Super 
addq, 1 #4, Sp de 
rts | 5.5 
E 
tline: ا‎ 
move. | x1, dp :d9=X 1 EI 
nove. | x2, dl dich? 1 E 
move. | y]; d2 ;d2=Y1 PE 
move. | y2, d3 :d3=Y2 = R 
move. | dð, d6 ;d6=temp. X1 HE 
move. | d2, d7 ;d7=temp. Y1 14 
sub. | dà. dl ZER? ١ 
move. | dl,deltax ¿delta X=work(deltax) SE 
sub. | "09,3 LAG 
move. | d3,deltay ¿delta Yzwork(deltay) | 
cmp. | #0, d1 ;d1=0 ? 
bgt. | plusx ;d1>0 then plusx | 
beq. | zerox : 1:50 then zerox 
move. l #-1,sgnx ;work(sgnx)--1 d 
muls &-1.dl ,dizdi*-1 
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XN-BASIC で 人 役立つ 外部 定義 関数 ・ 事例 TE inuanuanunununanunununwnanunanunwnanwnanunanunanunanunununununuñunwanununununununum‏ تب E5‏ ہہ 


zerox 


plusx 


I conti 


zeroy 


plusy 
lcont2 


bigx 


lloop1 


contbigx 


bigy 


12 


304 


blt. | 
add. 1 
sub. | 
addq. | 
cmp. | 
blt. 1 


move. | 
muls 
Si, i 
move. | 


move. | 


lcont1 

#0, Sgny 
lcont1 
&l,sgnx 
dl,absdltx 
#2, dl 
dl,absdltx2 
absditx,d! 
8 03 

plusy 

zeroy 
K-l,sgny 
&-1,d3 
Icont2 

# り , Sgny 
lcont2 

#1, Sgny 
d3,absdlty 
#2,d3 
d3,absdlty2 
absdlty,d3 
di,d3 

bigy 
absdltx,d4 
#-1,d4 

d5 

d6, sx 

d7. sy 
psetxy 
sgnx, d6 
absdlty2,d4 
contbigx 
Sgny,d7 
absdltx2,d4 
&1,d5 

d, db 

l loop! 
lcont3 


absdlty,d4 
#-1,d4 

d5 

d6, sx 

d7, sy 


work (sgnx) =0 











0۹ ایا ۴۹ ای۹ ای ۹ ایا ۴۹ ای ۹ ای ۹۹ ایا ۹لیا ۹ ایا ۴۹ لیا ۹ایا‎ RM ۴۷ ایز‎ ۴١ ای ۹ ای‎ PPP Pd MM RM PP Pd Fd PM ۷ ا[ ای ۴(۷ ای ۷8 ا‎ PU PRO PR PUERO REPE PR 5 =8 وب ا‎ PARES وو‎ メニ = > ー 関 Zt "POP UP, inuRı | 








bsr psetxy 
add. | Sgny,d7 
add. | absdltx2,d4 
blt. | contbigy 
add. | 88, 6 
sub. | absdlty2,d4 
contbigy addq. | 8", 5 
cmp. | d3,d5 
bitz] I loop2 
lcont3 rts 
psetxy: 
move. | d6, tempx 
move. | d7, tempy 
mulu #$80, d7 
divu #16,d6 
mu | u #2,d6 
add. | dp, di 
move. | d7,adrs] 
mulu #8,d6 
move. | tempx,d7 
sub. ] dp, d7 
move. | 8 0 d6 
Isr. | d7,d6 
move. | 8 7٦ 
add. | 8“ ) 7 
move. | d7,a4 
or. w d6, (a4) 
add. | #$20000, d7 
move. | d7,a4 
Or. w d6, (a4) 
move. | tempy,d7 
move. | lempx,d6 
rts 
ポニ ニニ ニニ ニニ ニニ ニニ ニニ = WORK AREA ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 
adrsl dc. | 0 
adrs2 de. 1 H 
tempx dc- 1 H 
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سا 


NUR 第 5 X-B ASICT Y. つ 外部 定義 関数 * 事例 1E (PM ر۱ ای ۷ی ۴ ای٣ ہی یر‎ RM ۷ر( ای ۷ یا ی۷‎ RR UR ای ۱ ار‎ ۷ RM RU ا اار۷‎ RPM ای ۷ ۷ ای ۷ ا‎ PPM RM یا‎ RD 
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tempy 


deltax 
deltay 
sgnx 
sgny 
absdltx 
absdlty 
absdltx2 
absdlty2 


ret param 


msg error 


sspbuf 
uspbuf 


number 

max len 

str pointer 
ms. x 

ms y 
pointer 

X pos 


y 5ھ‎ 


mous. x 
mous y 
answer 
stackl 


0 
0 
9 
0 
0 
H 
9 
9 
0 
9 
H 
H 
H 
H 
H 

H 

0 

1 

0 رت 

0 

0 

0 

0 

0 

0 

0 

0 

H 

0 

0 

0 

0 

0 

0 

H 

H 

H 





ز۱٢ یا ا رای ۷ نی‎ RM PRIN یا ۴ی ا ای ۷ یا‎ AR RI PPP RR PERPE ا۴‎ PPP 5—8 ポッ プア ッ プ メニ ュー 関数 "POP UP) inum 


stack2 de. | 0 
stack3 de. | H 
temp. x pos dc. | 0 
lemp. y. pos dc. | 0 
max. x de, l 0 
max. y dc. | 0 
Spc code dc. b $20, 0 
wxel dc. w 0 
wyel dc. w H 
WXe2 dc. w 0 
Wye2 dc. w H 
۲×1 dc.w H 
wysl dc. w 0 
wxs2 dc.w H 
WyS2 dc. w 9 
vram_bufl dc. w 0 
dc. w H 
ds.b 4096 
vram_buf2 dc.w H 





$C, この 外部 関数 は これ まで の 総決算 的 な も の で す 。 か な り の 数 の IOCS ュ ユー ル を 使用 し ,DDA 
ROAI U CHH U TU IT, 2>2—x2>un25 hbt Zhu iu. pb に 
か ら の 視覚 に 訴え る 新しい 入力 方 法 で は な いで し ょ うか 。 表示 したい メニ ュー の 項目 を 配列 に セ 
ッ ト し 。 靖 定 し た 項目 数 と 表示 位置 を 設定 する だ け で , マウ ス に より 選択 し た メニ ュー の 番号 が 
返っ て きま す 。 な お , この 関数 を 実行 し て いる と き は , 以前 に テキ スト 画面 上 に 書か れ て いた 文 
字 を バッ ファ 


2 


pop_up 関 数 を 使用 し た サン プル プロ グラ ム は 第 5 一 7 図 の 通り で す 。 





に 読み 込み 記憶 し て あり ます か ら , pop_up 関 数 終了 後 は , 元 の 画面 に 復帰 し て いま 








1000 
1810 
1020 
1030 





AE x.y,n,.bl,br E 
dim str st(5) | 
st (00) z"X-BASIC" 

st(1)=” X68000” 
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SS? Ed り 草 X- BASIC で 人 役 立 39 外部 定義 関 数 ° 事例 集 AFAM FA ایا‎ PA لیا ۴۹ کیا‎ PA ای ۴۹ ایا ۴۹ ای‎ FA ایز‎ FA ایا ۴۹ ایز‎ PA ای ۹ ایز ۴۹ ار ۴۹ بی‎ ۴٣ ایا ۴۹ ای‎ PA ا ۴۴ ایز ۴۹ ای ۹۹ کیا‎ PU ای ۴۹ ایز ۴۹ ایز‎ PA ایا‎ PR ایا‎ PU ای ۴۹ ایا‎ PU ایا‎ PA ارز‎ PA ایز‎ PA ای‎ PA ایا‎ ۴١ ا ۹۷ نر ۴۹ ایز ۹ ا ۹ ایز‎ PA ایز‎ PA بیز‎ A 


1040 st(2)="”Human68k” 
EN50 Ss も (3)= TA vC 
1969 st(4)=” function” 
1070 st(5)=” end” 

1080 mouse (0) 

1090 mouse (1) 

1100 msarea(0,0, 767,511) 
1110 repeat 


1120 button () 

1130 mspos(x,y) 

1 140 n=pop_up(st, 6, x,y) 
1158 print n 

1160 button() 


1178 until n=6 
1180 mouse (0) 


1190 end 

1200 func button () 

1210 while اط‎ =0 

1220 mmSStat(x,y,bl, br) 
1230 endwhile 

1240 while bl=-1 

1250 msstat(x,y,bl,br) 
1260 endwhile 


1270 endfunc 


第 5 一 7 POP_UP の サン プル プロ グラ ム 

TORS- 7 図 の プログ ラム は , pop_up の 動作 を 確認 する も る ので, マウ ス を 左 ク リッ ク す る と 
ポッ プア ッ プ メニ ュー が 現れ ます 。 この 時 に 画面 を クリ ア し て な けれ ば , テキ スト 画面 上 に 表示 
る され て いる 文字 (例え ば , 上 記 の リス ト 等 ) の 上 に 現れ て , 次 に 左 ク リッ ク す る と マウ スカ ー ン ソ 
ル が 示し て いる 項目 (メニ ュー) が 選ば れ て , その 番号 が 返っ て きま す 。 ポ ッ プ アッ プ メ ニュ ー 
の 外 て だ クリ ッ 才 する と 0 が 返っ て きま す 。 

これ て 外部 定義 関数 の 事例 の 紹介 と 解説 終わり ます が , 次 の 第 5 一 8 図 の リス ト は これ まで 

- 紹 介し た 外部 定義 関数 を 使用 し て 作ら れ て いる テキ スト 画面 の お 絵かき ソフ ト で す 。 第 1 章 か 
SS n ا ور وت مم سم سی‎ 
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ボッ プア デップ メニ ュー 関数 「POP_ UP) on 


cw 8‏ 5 ا ۴ PP PO OLIO PE‏ ای ۷ ا(۴ ای [۴ MNA RM RN BUR‏ ای ۴۷ ۹۷ ا ١‏ ای ۹ ای ٣‏ بی ۹ RI‏ ایز ۹ ای ۷ ای ۹ R‏ ای ۹ ایا ۹ ای ۴۷ لیا ۹ایا ۴۹ ا ۹ ایا 07١‏ 





10 /* 

20 int x,y,mx,my,count,bl,br 

JU dim int xx(2000),yy (2000) 

40 dim str a(4)=( "Copy CK)", "copy CN)", 
50 "All clear","End" ) 
DH screen 2,۱1 

70 console 0,31,0 

80 mouse (0) 

90 mouse(1) 

100 mouse (4) 

110 mcset () 


12-0 mscursor (1) 





130 «hile 1 

140 msstat(x,y.bl,br) 

150 if bl--1 then draw():continue 

160 if br=-1 then pop() 

170 count =0 

180 mspos (mx, my) 

190 xx (count) =mx 

200 yy (count) =my 

210 endwhile 

220 end 

230 func draw() 

240 count=count+1 

250 mspos(mx,my) 

260 xx(count)=mx 

270 yy(count) =my 

280 tline(xx(count-1),yy(count-1),xx(count),yy(count).9) 
290 tline(xx(count-1),yy(count-1),xx(count),yy(count),1) 


300 endfunc 

310 func pop() 

320 int x.y,br,bl;vsw 
330 mscursor (0) 
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۸۴۱ ds 5 SS X- BASIC C í 2 外部 定義 関 Ax: RU Ua 4 PP Pd Pd Pd PU POP ۹ ایا ۹ ای ۴ ای ۹ی ۹ یا‎ ۴ Pd PU POOR RU Pd RM ۴۹ UR DNH ۹ لی فی‎ ۹ Pd POM PURO ۹ ۹لیا‎ d PO ۹ ایا‎ RR ER 


340 msarea (2,2,760,510) 

350 mspos(x,y) 

360 v=pop_up(a,4,x,y) 

370 switch v 

380 case 1:msScursor(2):h_copy(1):break 
390 case 2:mscursor(2):h. copy (ü) :break 
400 case 3:tcls(-1):break 

410 case 4:ending():break 

420 endswitch 

430 msarea(0,0,767,511) 

440 mscursor(1) 

450 repeat 

460 msstat(x,y,bl,br) 

470 until bl=0 


480 endfunc 
490 func ending() 


500 tcls(-1) 

0 console 8,31, 1 
520 print chr$(4) 
530 mouse (0) 

540 end 


550 endfunc 
560 func mcset() 
578 dim int pat(32)={ 


580 &B0001111111111411, 
590 &B9119911111111111, 
600 &B9111199111111111, 
610 &B1010011011111111, 
620 &B1010011101111111, 
630 &B11801111118111111, 
640 8 01181111111 11. 
650 8ے‎ 1118111111101110 
660 &B1111011111118111, 
670 &B1111181111111811, 


310 











۹ ا ۴۹ لا‎ P ا ۷ ای ایا ۹ اذ ۴۹ ایا‎ Pd Pd Pd ۷ PROP d POOR Pd ۹ار‎ Pd POR d PU Pd Rd PU POR d P Pd Rd Pd ۷ POR PU PO REP 5—8 2 > و‎ 7 ツ v AX. 一 関 数 「POP UP」 SE 


880 &B1111118111111181, 
690 &B1111111011111181, 
700 &B1111111181111811, 
710 &B111111111981108111, 
720 &B1111111111001111, 
730 ERLE EN 
740 /* 

750 8۴ ۹۹۱۱ ۹,“ 8پ ی6‎ ۰, 
750 &B0110000000000000, 
770 8۸00 111111 0 ۵۰ 
780 &B0010011000000000, 
790 &B0010011100000000, 
800 &B0001111110000000, 
818 8۴۲ 011111188 9 
820 &B0000111111100000, 
830 &B0000011111110000, 
840 &B0000001111111000, 
850 &B00000001111111080, 
850 &B0000000011111100, 
870 84۲ 10 
880 &B0000000000110000, 
890 &B0000000000000000 ) 


900 mscset(1,0,0,pat) 
910 endfunc 








第 5 一 8 お まけ の TEXT_DRAW. BAS 


プロ グラ ム の 使用 方 法 

KUN に より プロ グラ ム 実 行 後 。 マ ウス を その まま 移動 す を と えん ぴ つ カー ソル も それ に つれ 〒 
移動 し ます 。 線 を 引き た いと き は , 左 の ボタ ン で ドラ ッ グ し て いる あい だ 線 を 書く こと が 出来 ま 
す 。 右 ボタ ン を クリ ッ ク す る と ポッ プア ッ プ メニ ュー が 現れ 。 画面 の ハー ド ュ ピー か 。 画面 クリ 
/ か , ブロ グラ ム 終 了 か を 聞い て きま す 。 キャ ン セ ル す る 時 は , 梓 の 外 で ボタ ン を 押し て 下 き い 。 
ماما‎ テキ スト 画面 の ハー ド ュ ピー を 実行 きせる 外部 定義 関数 (RS — 9 図 ) を お まけ と し て 付 
け 加 えて あり ます か ら , 第 5 一 8 図 の サナ ンプ ルプ ログ ラ ム を 実行 する 前 に 、basic.cnf の 中 に 定義 
に で て お いて 下る ts 
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MAN a 5 CR X-BASIC で 役立つ 外部 定義 関数 H 事例 集 (FM PU Pd Pd Pd PA ایر‎ PA ایر‎ PU Pd PU PU ۴۹ ایز‎ FA ایز ۴۹ نیز 7 ایز‎ RO POR RR PA بیز‎ PA ای 7 ایز‎ PA ای ای‎ PA ای‎ PA ا‎ PA ایا ۴۹ ای‎ PA ای‎ PA ایا‎ PA نی ۴۹ ایز‎ PA کیا ۴۹ ایا‎ PA ا‎ PA ای‎ PA D PAA 


XK‏ بد بد بد بد اد عاد بد بد بد بد اد عاد بد اد بد با عمج بد بعد اد ماد ماد اد بد بد اد بد بد باج بد اد بد بد بد بعد بد 
Hard copy for X68000‏ * 

* presented by CZ masters club 

* * £ e £ xk £ £ £ £ £ £ £ £ £ £ £ k k k £ £ k £ £ £ £ £ £ £ £ £ £ £ k £ x 


char_val equ $0004 
int ret equ $8001 
adr init dc. return 
adr run dosl return 
adr_end dc. | return 
adr_system dc. 1 return 
adr break dc. | return 
adr_input dc. | return 
adr reservel dc. | return 
adr reserve2 dc. | return 
adr_token de. | token_table 
adr_parameter dc. | param_adr_table 
adr_exec dc. 1 exec_table 
reserve dc. | 8,0, 08و‎ 
token_table dc.b "h_copy”, 0, 0 
even 
param adr table dc. | param table 
param table dc.w char val; int ret 
.even 
exec table dc. | bh copy 
. even 
h copy: move.| 12(sp),d@ 
trap #12 : こ れ は 、 コ ピー キー 処理 を 行う も の で す 
Cir] dp 


lea. | ret param(pc),a8 


lea. | msg_error(pc),al 
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(P Pd ۴۹ کیا‎ FU Pd ۴ ایا ۴۹ ایا‎ Pd Pd PU Pd Pd Pd PO ۴۹ ای ۹ ایا ۶ ایز‎ PRO PRU ١ ای‎ ۴۹ RO ۶۹ ای‎ PUERO Rd PR PURO ۹ ایا ایا‎ PU PUE PO ای(‎ RUOLO ١ ا 0 ایز [ ای‎ A 5ー8 zi 7 Uu s 2" メ ュ ニュ ュー 関 Ex "POP UP: de 





return rts 
.even 
ret param dc.w 0 
dc. | 0 
dc. | 1 
msg error dc.b "Errór",9 








お まけ の 外部 定義 関数‏ ا وچ 





行 番号 は 本 文中 に も ある よう に 1 か ら 65535 ま で の 整数 が 使用 出来 ます 。 プロ グラ ム は , この 行 番号 
に そっ て 行 番号 の 小さ い 順 に 実行 し て いき ます 。 制御 構 造 命令 等 で , 行 番号 を 無視 し た 順序 で プロ グ 
ラム を 進め る こと が 出来 ます 。 ま た , 行 番号 は ダイ レク ト 命 令 か が ,、 プロ グラ ム か を 解釈 する だ め の 大 
切な も の で す 。 隣り 合う 行 番号 に 割り 当て た だ 数値 が 1, 2, 3…… と 並ん で いる と 整然 と し て いて 和美 
し 〈 く 見 を え を ます が , も し, プロ グラ ム の 変更 等 が あり 行間 に 別 な 行 を 挿入 し な けれ ば な ら な く な っ て も , 
これ で は 新しい 行 の 挿入 が で き な い の で 行 番号 は で きる だ け 10, 20, 30…… と も て OCC 
と か 25 と いう 行 番号 を 追加 する こと が で きる よう に な っ た 訳 で す 。 行 番号 を 追加 し た 後 は , RENUM 
ュ マ ンド で 行 番号 を 整理 し て ぢ お く の も 忘れ な が いで 下 き るい 。「 こ れ で よし 」 と 言う まで は , 行 番号 は ぞ ん 
یہ و روج رجہ‎ も 構わ な い の で すか ら …… Š 

それ か ら 6 RENUM で 注意 し な けれ ば な ら な いこ と に , GOTO, GOSUB の 飛 先 番地 に つい て は 新 し 

行 番号 を 割り 当て て くれ ませ ん (下図 参照 )。 





RENUM する 前 RENUM 後 





INT A,B INT A,B 


PRINT A,B 20 PRINT A,B 
A=A+1 :B=B 十 2 A=A+1:B=B+2 
GOTO 15 40 GOTO 15…… 飛 先 が 変 更 き れ て いな い 








な 理由 か ら も この GOTO,GOSUB の 使用 は や め た 方 が いい で し ょ 5. E 
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多 色 グラ フィ ッ ク 、 カ ラー 画像 デジ タイ ズ 、 ス テレ オ FM 音 源 、 バ ンク = 二 
対応 な ど ク リエ イ テ ィ ブ ワ ー ク を 強力 に サポ ー ト する AV 指向 の 高 吾 芋 
BASIC C$, グラ フィ ッ ク 用 関数 、X68000 と 命令 コン パチ の 拡張 綱 
を は じ め 使 い 込 む ほ ど に 凄 さ が わか る パワ フル な BASIC を 搭載 し ま _』 
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量子 化 、 モ ザイ ク 、 反転 な ど ト リッ ク 取 り 込 み 処理 を サポ ー ト し た カテ ー 
画像 デジ タイ ズ 機 能 標準 装備 。 さ きら に 、 ク ロマ キー 合成 、 イ ンタ ー レ ー ョ 


N ノン マソ コン テレ ビ スー パー イン ポー ズ 、4,096 色 対応 ニュ ー テ ロッ パ 機 能 、8 重 和音 の 7 
^ ٣ رسس سر و سے‎ LF ME, AOZET HSY) At را رر‎ 
e メイ ン メ モリ 128KB 標準 実装 (NEW Z-BASIC CRX 7ھ‎ 7٦4 
まで サポ ー ト ) し た 大 容量 設計 @ 1M バ イト フロ ッ ピ ー2 基 搭載 
第 1/ 第 2 水準 準拠 漢字 ROM、「 シ ステ ム ・ ユ ー ザ ー 辞 書 」 標 準 装 1 
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ウス 標準 装備 る ۷7م‎ 9 EEN 
コン パチ ブル 設計 e 多彩 な 通信 ツ ソール“ の サポ ー ト で パソ コン 和 問 医 
対応 @ ド ッ ト ピ ッ チ 0.31mm の 高 精細 カラ ー デ ィ ス プレ イ テ レ ビ ` 

本 体 † す キー ボー ド |. CZ-881C-BK( ブ ラッ ク ) 標準 価格 18. 
14 型 カラ ー デ ィ ス フレ イ テ レ ビ CZ-880D-BK( プ ラッ ク ) 標準 価格 109.3 
14 型 カラ テラー ディ スプ レイ テレ ビ ` CZ-830D-BK( ブ ラッ ク ) 標準 価格 07 
チル トス タン ド CZ-6ST1-B( ブ ラッ ク ) 標準 価格 5. BE 








※ 写真 の ディ スフレ イ ほ は 0 


° 株 式 会 e お 問い 合わ せ は … シ ャ ー プ 映 電 子 機器 事業 本 部 シス テム 機器 営業 部 〒545 大 阪 市 阿倍 野 区 長池 町 22 番 22 号 谷 (06)621-1221 1۶ 
Mi -Mo = = 電子 機器 事業 本 部 テレ ビ 事業 部 第 4 商品 企画 部 E EE ASS BJ SEH A (03) 260-1161 (AAR) 


電波 新聞 社 141 東京 都 品 川 区 東 五反田 1 一 11 一 15 定価 2.060 円 (本 体 2.000 円 ) 5 





